(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     98899,       2226]
NotebookOptionsPosition[     92725,       2113]
NotebookOutlinePosition[     93136,       2131]
CellTagsIndexPosition[     93093,       2128]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:52a0\:8f7d\:5de5\:5177\:5305", "Subsection",
 CellChangeTimes->{{3.7260392030631723`*^9, 3.7260392078513823`*^9}, {
  3.726406307483923*^9, 
  3.726406313774971*^9}},ExpressionUUID->"01e98eb2-bd7b-406e-a765-\
08ea74e3a6e6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Needs", "[", "\"\<GUIKit`\>\"", "]"}], " ", 
  RowBox[{
  "(*", " ", "\:83b7\:53d6\:622a\:56fe\:7528", " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Needs", "[", "\"\<JLink`\>\"", "]"}], " ", 
  RowBox[{"(*", " ", "\:63a7\:5236\:9f20\:6807\:7528", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"ReinstallJava", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"robotclass", "=", 
   RowBox[{"JavaNew", "[", "\"\<java.awt.Robot\>\"", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"LoadJavaClass", "[", "\"\<java.awt.event.InputEvent\>\"", "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7259761444163976`*^9, 3.725976169148885*^9}, {
   3.7259762372842665`*^9, 3.7259762470684376`*^9}, {3.7259762848614845`*^9, 
   3.7259762884524136`*^9}, {3.7259767872635555`*^9, 
   3.7259767884072914`*^9}, {3.726001775429123*^9, 3.7260017895982523`*^9}, {
   3.726001832036083*^9, 3.7260018352957907`*^9}, {3.7260021360140247`*^9, 
   3.7260021362938986`*^9}, {3.726002388233436*^9, 3.72600242160462*^9}, {
   3.7260025538369184`*^9, 3.7260025540482397`*^9}, 3.7260043275230675`*^9, {
   3.726041114721759*^9, 3.7260411155105953`*^9}, {3.7260476922624674`*^9, 
   3.726047737340909*^9}, {3.726047773460827*^9, 3.726047774581614*^9}, {
   3.726047881784935*^9, 3.726047882097897*^9}, {3.726051028869873*^9, 
   3.726051030104161*^9}, {3.726051474213132*^9, 3.726051474417737*^9}, {
   3.7260516266983943`*^9, 3.7260516592932587`*^9}, {3.7264063377950726`*^9, 
   3.7264063548853683`*^9}},ExpressionUUID->"4c6538af-6ede-40dc-a2e2-\
a38eda70cb39"],

Cell["\<\
\:6d4b\:91cf\:6e38\:620f\:56db\:5217\:5728\:5c4f\:5e55\:4e0a\:7684\:5750\:6807\
\>", "Text",
 CellChangeTimes->{{3.726406399125222*^9, 3.7264064390726523`*^9}, 
   3.7264064856873636`*^9},ExpressionUUID->"f35bbc7e-c758-431a-8a69-\
d1d0eb9b2bd7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dynamic", "[", 
  RowBox[{"MousePosition", "[", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7259808613506618`*^9, 3.7259808671030817`*^9}, {
  3.7264064811298637`*^9, 
  3.7264064875786047`*^9}},ExpressionUUID->"02f6ae48-77d8-41a8-ad12-\
be743ffc0207"],

Cell[BoxData[
 DynamicBox[ToBoxes[
   MousePosition[], StandardForm],
  ImageSizeCache->{172., {5., 19.}}]], "Output",
 CellChangeTimes->{
  3.725910252862064*^9},ExpressionUUID->"0333f113-1f7e-43fc-a4af-\
026bb8e585e7"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"x", "=", 
    RowBox[{"{", 
     RowBox[{"1450", ",", "1495", ",", "1735", ",", "1775"}], "}"}]}], ";"}], 
  " ", 
  RowBox[{
  "(*", " ", 
   "\:5c3d\:91cf\:62c9\:8fd1\:5de6\:53f3\:7aef\:63d0\:9ad8\:6027\:80fd", " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y0", "=", "570"}], ";", " ", 
  RowBox[{"(*", " ", "\:70b9\:51fb\:70b9", " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.7264065288095293`*^9, 3.726406554012601*^9}, 
   3.7264067109277573`*^9, {3.726406824244066*^9, 3.7264068900174007`*^9}, {
   3.7264069360232663`*^9, 3.726406968174667*^9}, {3.726407150286939*^9, 
   3.7264071532734823`*^9}, {3.72640731735775*^9, 3.72640736119913*^9}, {
   3.7264076276415405`*^9, 3.7264076595093517`*^9}, {3.7264076959593797`*^9, 
   3.726407730685162*^9}, {3.7264120489471965`*^9, 3.726412071400852*^9}, 
   3.726412367124058*^9, {3.7264127630485706`*^9, 3.726412780668315*^9}, 
   3.7264135695097866`*^9},ExpressionUUID->"a86157f7-5fee-42ef-aec5-\
e0038898d50b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:63a2\:6d4b\:6a21\:5757", "Subsection",
 CellChangeTimes->{{3.7264066397016077`*^9, 
  3.7264066619266987`*^9}},ExpressionUUID->"3568f8df-0eb1-4d6f-9489-\
74c164bf329a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"th", "=", "2"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"\:7ecf\:6d4b\:8bd5", "\:ff0c", 
    RowBox[{"\:6700\:4eae\:9ed1\:5757\:7684TotalRGB\:662f", " ", "1.7"}], 
    "\:ff0c", 
    RowBox[{"\:6700\:6697\:767d\:5757\:662f", " ", "2.16"}]}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.7260433792332425`*^9, 3.7260434416152225`*^9}, 
   3.7260438846857157`*^9, {3.7264113831088963`*^9, 
   3.7264114159126863`*^9}},ExpressionUUID->"bc8df399-0bac-41d9-943f-\
2fd31360e02b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"xs", "=", 
    RowBox[{"x", "-", 
     RowBox[{"x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "+",
      "2"}]}], ";", 
   RowBox[{
    RowBox[{"xs", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "-=",
     "2"}], ";"}], " ", 
  RowBox[{
  "(*", " ", 
   "\:56db\:63a2\:6d4b\:70b9\:5728\:622a\:56fe\:4e2d\:7684\:5750\:6807", " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\:7528", " ", "Module", " ", 
    "\:4f3c\:4e4e\:8fd0\:884c\:7684\:8f83\:6162"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"checkline", "[", "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"img", "=", 
      RowBox[{"GUIScreenShot", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
           "x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
           RowBox[{
           "x", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"y", "-", "4"}], ",", "y"}], "}"}]}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"ct", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Total", "@", 
         RowBox[{"PixelValue", "[", 
          RowBox[{"img", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
             "xs", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
             ",", "j"}], "}"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "4"}], "}"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"ct", "\[LeftDoubleBracket]", 
          RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}], "<", "th"}], "&&", 
        RowBox[{
         RowBox[{"ct", "\[LeftDoubleBracket]", 
          RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}], "==", 
         RowBox[{"ct", "\[LeftDoubleBracket]", 
          RowBox[{"i", ",", "2"}], "\[RightDoubleBracket]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
    ")"}]}], " ", 
  RowBox[{
  "(*", " ", 
   "\:8de8\:4e00\:6bb5\:8ddd\:79bb\:662f\:4e3a\:4e86\:907f\:514d\:8bef\:628a\
\:9ed1\:7ebf\:5224\:6210\:9ed1\:5757", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"checklineC", "[", "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"ch", "=", 
     RowBox[{"checkline", "[", "]"}]}], ";", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"ch", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
      ",", 
      RowBox[{"click", "[", "1", "]"}], ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"ch", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
        ",", 
        RowBox[{"click", "[", "2", "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
          "ch", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", 
          RowBox[{"click", "[", "3", "]"}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
            "ch", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], ",", 
            RowBox[{"click", "[", "4", "]"}]}], "]"}]}], "]"}]}], "]"}]}], 
     "]"}], ";"}], "\[IndentingNewLine]", ")"}]}]}], "Input",
 CellChangeTimes->{{3.726038421019596*^9, 3.726038430886448*^9}, {
   3.726039380950939*^9, 3.7260393812728024`*^9}, {3.7260394148659353`*^9, 
   3.7260394920917177`*^9}, {3.7260395861657515`*^9, 
   3.7260395900869236`*^9}, {3.7260398254261894`*^9, 3.726039827909897*^9}, {
   3.7260399475859165`*^9, 3.726039963110135*^9}, {3.7260401303300467`*^9, 
   3.726040133738306*^9}, {3.7260402130971503`*^9, 3.7260402249283257`*^9}, {
   3.726040361368325*^9, 3.726040365388728*^9}, {3.726040457756523*^9, 
   3.726040468479959*^9}, {3.726040742727111*^9, 3.7260407509718094`*^9}, {
   3.7260408606973343`*^9, 3.7260408932629647`*^9}, {3.726040976511588*^9, 
   3.7260409833665514`*^9}, {3.726041024140167*^9, 3.7260410339236546`*^9}, {
   3.726041181065703*^9, 3.7260411845574265`*^9}, {3.7260412447653646`*^9, 
   3.726041249856962*^9}, {3.7260414634841795`*^9, 3.726041506524414*^9}, {
   3.7260415919005547`*^9, 3.7260416019159174`*^9}, {3.7260416460771213`*^9, 
   3.7260416650491104`*^9}, {3.726041808635626*^9, 3.726041865899731*^9}, {
   3.7260419316186457`*^9, 3.726041957977042*^9}, {3.726042074325702*^9, 
   3.726042086424883*^9}, {3.7260424400677834`*^9, 3.726042468134261*^9}, 
   3.726042729934168*^9, 3.726042789282998*^9, {3.7260429083392897`*^9, 
   3.7260429120907106`*^9}, {3.726043024250379*^9, 3.7260430436658025`*^9}, {
   3.7260431818853073`*^9, 3.726043207218913*^9}, {3.7260432422025127`*^9, 
   3.726043248595236*^9}, {3.726043446237372*^9, 3.726043453469594*^9}, {
   3.726043633348445*^9, 3.726043645201606*^9}, {3.726043710832197*^9, 
   3.726043717346157*^9}, {3.7260439712759776`*^9, 3.7260439732047234`*^9}, {
   3.7260440111285696`*^9, 3.7260440116793003`*^9}, {3.726044080002392*^9, 
   3.7260441033481393`*^9}, {3.7260443746716127`*^9, 3.726044595154488*^9}, {
   3.7260447020613766`*^9, 3.7260447340574923`*^9}, {3.726044813180722*^9, 
   3.7260448547262836`*^9}, {3.726045105323492*^9, 3.726045106783071*^9}, {
   3.7260451425356483`*^9, 3.7260451579702816`*^9}, {3.7260451950352473`*^9, 
   3.726045254050439*^9}, {3.7260452955786486`*^9, 3.726045300629861*^9}, {
   3.726045466173213*^9, 3.7260454993492503`*^9}, {3.7260456061234226`*^9, 
   3.7260456519369416`*^9}, {3.7260463935864224`*^9, 
   3.7260464015644035`*^9}, {3.726046458745246*^9, 3.7260464803416624`*^9}, {
   3.726046565862612*^9, 3.726046575930913*^9}, {3.726046632536539*^9, 
   3.7260466351296234`*^9}, 3.726046699810834*^9, {3.726047000008106*^9, 
   3.72604702282998*^9}, 3.7260471317330284`*^9, {3.726047185415779*^9, 
   3.726047185965966*^9}, {3.726047268798685*^9, 3.726047276001289*^9}, {
   3.7260473635192575`*^9, 3.7260473654762917`*^9}, {3.72607091909072*^9, 
   3.726070950866952*^9}, {3.7260715964414744`*^9, 3.726071597802727*^9}, {
   3.7260718783483696`*^9, 3.7260718795561347`*^9}, {3.7260736971303053`*^9, 
   3.7260736989095707`*^9}, 3.726077150693183*^9, {3.7260772903252*^9, 
   3.7260772911978245`*^9}, {3.726077383724696*^9, 3.7260773858183084`*^9}, {
   3.7260775721352615`*^9, 3.7260775734239044`*^9}, {3.7264064603923445`*^9, 
   3.7264064621659184`*^9}, {3.7264103168555155`*^9, 
   3.7264103712883034`*^9}, {3.7264109018597403`*^9, 
   3.7264109462980356`*^9}, {3.726411092383498*^9, 3.7264111249817104`*^9}, {
   3.726411173332389*^9, 3.726411207682336*^9}, 
   3.7264113347472706`*^9},ExpressionUUID->"5db95623-02ed-4598-9a19-\
895b97faa0dd"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:6d4b\:9f20\:6807\:70b9\:51fb\:4e8b\:4ef6\:7684\:5ef6\:8fdf", \
"Subsection",
 CellChangeTimes->{{3.726406590515497*^9, 
  3.7264065992661085`*^9}},ExpressionUUID->"804d5fa6-642a-4f37-94d8-\
c6a980f1688b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"click", "[", "i_", "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"robotclass", "@", 
     RowBox[{"mouseMove", "[", 
      RowBox[{
       RowBox[{"x", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
       ",", "y0"}], "]"}]}], ";", 
    RowBox[{"robotclass", "@", 
     RowBox[{"mousePress", "[", "16", "]"}]}], ";", 
    RowBox[{"robotclass", "@", 
     RowBox[{"mouseRelease", "[", "16", "]"}]}], ";"}], ")"}]}]], "Input",
 CellChangeTimes->{
  3.7260518575557632`*^9, {3.726053164672326*^9, 3.7260531781150136`*^9}, {
   3.726055100321066*^9, 3.726055111636827*^9}, {3.7260711932472982`*^9, 
   3.726071209336425*^9}, 3.72607161511164*^9, {3.7260716890337048`*^9, 
   3.726071689454835*^9}, 3.7260718637541447`*^9, {3.7260719530621595`*^9, 
   3.7260719535355153`*^9}, 3.7260720430954094`*^9, {3.726072202951894*^9, 
   3.726072203118701*^9}, {3.726406604391483*^9, 3.7264066113299685`*^9}, {
   3.726406788191222*^9, 
   3.7264067886924615`*^9}},ExpressionUUID->"da3647f4-155f-471e-a4d4-\
9aa896cd6611"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"click", "[", 
     RowBox[{"Mod", "[", 
      RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "4000"}], "}"}]}], "]"}], "//", "Timing"}]], "Input",
 CellChangeTimes->{{3.726407438452123*^9, 3.726407532680798*^9}, 
   3.72640777698673*^9},ExpressionUUID->"5746ffdb-38b8-4a16-8914-\
4baff80b2329"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.640625`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{{3.726407766773783*^9, 3.7264077913946*^9}, {
  3.726407829676662*^9, 
  3.7264078574409857`*^9}},ExpressionUUID->"2513629b-90cf-463c-8cbd-\
baa89d5f3c0b"]
}, Open  ]],

Cell["\:5c4f\:5e55\:5916\:5b9e\:6d4b\:65f6\:95f4\:4e3a 10.2 s\:ff0c\:6545\
\:5355\:6b21\:70b9\:51fb\:7684\:5ef6\:8fdf\:4e3a", "Text",
 CellChangeTimes->{{3.7264078714788914`*^9, 
  3.7264079126749587`*^9}},ExpressionUUID->"bc36c292-ad38-49e3-85e6-\
2cdf62c7851b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"10.2", "/", "4000"}]], "Input",
 CellChangeTimes->{{3.7264079437219872`*^9, 
  3.726407951683319*^9}},ExpressionUUID->"8e0b8671-9329-4dd5-8c39-\
debba6fcc8b1"],

Cell[BoxData["0.0025499999999999997`"], "Output",
 CellChangeTimes->{
  3.726407952310249*^9},ExpressionUUID->"41a31dd3-18cc-4087-adcd-\
6ee7c74861c0"]
}, Open  ]],

Cell["\:ff08\:6b64\:5916\:5b89\:5353\:6a21\:62df\:5668\:7ffb\:8bd1\:9f20\:6807\
\:70b9\:51fb\:4e8b\:4ef6\:4f3c\:4e4e\:4e5f\:6709\:5ef6\:8fdf\:ff09", "Text",
 CellChangeTimes->{{3.7264081920811768`*^9, 
  3.726408217937126*^9}},ExpressionUUID->"e3bb8212-91c2-4220-a73f-\
6c7bbbf7fe96"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:6d4b t=0 \:65f6\:7684 delay \
\:6240\:5141\:8bb8\:7684\:50cf\:7d20\:53d6\:503c\:533a\:95f4", "Subsection",
 CellChangeTimes->{{3.726411520122795*^9, 
  3.7264115706759005`*^9}},ExpressionUUID->"f58cd4bd-12eb-4a36-a4ed-\
83e039cf94f9"],

Cell["\:8c03 y0=y+\[CapitalDelta] \:4f7f\:6e38\:620f\:521a\:597d\:6b7b\:4e8e \
n=450", "Text",
 CellChangeTimes->{{3.7264126371199946`*^9, 3.7264126622698927`*^9}, {
  3.726412907562776*^9, 
  3.726412908676273*^9}},ExpressionUUID->"49001061-8113-40a8-b7e7-\
2357d75a61af"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"n", "=", "1"}], ";", 
   RowBox[{"y", "=", "570"}], ";", 
   RowBox[{"y0", "=", 
    RowBox[{"y", "+", "260"}]}], ";"}], " ", 
  RowBox[{
  "(*", " ", 
   "\:5f00\:5c40\:5ef6\:8fdf\:6700\:5927\:53ea\:80fd\:8fd9\:4e48\:5927", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"While", "[", 
   RowBox[{
    RowBox[{"n", "<", "450"}], ",", 
    RowBox[{
     RowBox[{"checklineC", "[", "]"}], ";", 
     RowBox[{"y0", "--"}], ";", 
     RowBox[{"y", "--"}], ";", 
     RowBox[{"n", "++"}], ";", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"n", "\[Equal]", "300"}], ",", 
       RowBox[{"y0", "=", 
        RowBox[{"y", "+", "386"}]}]}], "]"}]}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"While", "[", 
  RowBox[{
   RowBox[{"n", "<", "500"}], ",", 
   RowBox[{
    RowBox[{"checklineC", "[", "]"}], ";", 
    RowBox[{"n", "++"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.726412727102275*^9, 3.726412742886629*^9}, 
   3.7264127904985657`*^9, {3.7264128774418406`*^9, 3.726412877642949*^9}, 
   3.7264129135117493`*^9, {3.726412953937462*^9, 3.7264129553067904`*^9}, 
   3.726413004629408*^9, {3.7264130830229745`*^9, 3.7264130869509573`*^9}, {
   3.726413127575674*^9, 3.7264131281078424`*^9}, {3.72641316154368*^9, 
   3.7264131617831664`*^9}, 3.726413468471945*^9, {3.7264135094892397`*^9, 
   3.7264135112487125`*^9}, {3.7264135628701763`*^9, 
   3.7264136785804787`*^9}, {3.726413758840605*^9, 3.7264137593510094`*^9}, {
   3.726413795391166*^9, 3.7264138295742884`*^9}, 3.7264138751788993`*^9, 
   3.726413913194631*^9, {3.7264139626503353`*^9, 3.7264139630655994`*^9}, 
   3.7264140054210215`*^9, 3.7264140499869666`*^9, 3.726414096954419*^9, {
   3.7264141432675257`*^9, 3.726414143472986*^9}, 3.72641418620728*^9, {
   3.7264142271679273`*^9, 3.7264142278793554`*^9}, {3.7264142739781523`*^9, 
   3.7264142770741396`*^9}, 3.7264143194245033`*^9, {3.7264143622635784`*^9, 
   3.7264143640147133`*^9}, {3.7264145613447266`*^9, 
   3.7264145618102164`*^9}},ExpressionUUID->"bbe976de-e661-4d19-81ba-\
348d6bd6784f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dynamic", "[", 
  RowBox[{"{", 
   RowBox[{"n", ",", "y", ",", "y0"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.72604495116928*^9, 
  3.7260449563648887`*^9}},ExpressionUUID->"4bc1b38a-68fb-4e76-a0ee-\
7d7029c2b68f"],

Cell[BoxData[
 DynamicBox[
  ToBoxes[{$CellContext`n, $CellContext`y, $CellContext`y0}, StandardForm],
  ImageSizeCache->{246., {5., 19.}}]], "Output",
 CellChangeTimes->{3.726005692812557*^9, 
  3.726044956826525*^9},ExpressionUUID->"db6ecfbf-f3e7-474f-ba8d-\
5540b3a04711"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"n", "=", "1"}], ";", 
   RowBox[{"y", "=", "600"}], ";", 
   RowBox[{"y0", "=", 
    RowBox[{"y", "-", "16"}]}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"While", "[", 
   RowBox[{
    RowBox[{"n", "<", "450"}], ",", 
    RowBox[{
     RowBox[{"checklineC", "[", "]"}], ";", 
     RowBox[{"y0", "--"}], ";", 
     RowBox[{"y", "--"}], ";", 
     RowBox[{"n", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"While", "[", 
  RowBox[{
   RowBox[{"n", "<", "500"}], ",", 
   RowBox[{
    RowBox[{"checklineC", "[", "]"}], ";", 
    RowBox[{"n", "++"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.726412727102275*^9, 3.726412742886629*^9}, 
   3.7264127904985657`*^9, {3.7264128774418406`*^9, 3.726412877642949*^9}, 
   3.7264129135117493`*^9, {3.726412953937462*^9, 3.7264129553067904`*^9}, 
   3.726413004629408*^9, {3.7264130830229745`*^9, 3.7264130869509573`*^9}, {
   3.726413127575674*^9, 3.7264131281078424`*^9}, {3.72641316154368*^9, 
   3.7264131617831664`*^9}, 3.726413468471945*^9, {3.7264135094892397`*^9, 
   3.7264135112487125`*^9}, {3.7264135628701763`*^9, 
   3.7264136785804787`*^9}, {3.726413758840605*^9, 3.7264137593510094`*^9}, {
   3.726413795391166*^9, 3.7264138295742884`*^9}, 3.7264138751788993`*^9, 
   3.726413913194631*^9, {3.7264139626503353`*^9, 3.7264139630655994`*^9}, 
   3.7264140054210215`*^9, 3.7264140499869666`*^9, 3.726414096954419*^9, {
   3.7264141432675257`*^9, 3.726414143472986*^9}, 3.72641418620728*^9, {
   3.7264142271679273`*^9, 3.7264142278793554`*^9}, {3.7264142739781523`*^9, 
   3.7264142770741396`*^9}, 3.7264143194245033`*^9, {3.7264143622635784`*^9, 
   3.7264143640147133`*^9}, {3.7264144308246765`*^9, 3.7264144365513673`*^9}, 
   3.726414495916094*^9, {3.7264145411729465`*^9, 3.726414564298709*^9}, 
   3.7264146012450447`*^9, {3.7264146460726843`*^9, 3.726414646431842*^9}, {
   3.726414729409163*^9, 3.7264147343238688`*^9}, {3.726414774818345*^9, 
   3.7264147752246447`*^9}, {3.7264148141293325`*^9, 
   3.7264148145278764`*^9}},ExpressionUUID->"7dd2924e-0ada-49a5-842f-\
64e676e9d8f5"],

Cell["\<\
\:6d4b\:5f97\:4e0b\:9650\:4e3a y0=y-15\:ff0c\:4e0a\:9650\:4e3a  y0=y+385\
\>", "Text",
 CellChangeTimes->{{3.7264130496498575`*^9, 3.7264130719943275`*^9}, {
  3.726414405795493*^9, 3.7264144140021644`*^9}, {3.7264148568145494`*^9, 
  3.7264148774367275`*^9}},ExpressionUUID->"8d6e1bd6-386f-4003-98cc-\
e39ba90a1ab6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"385", "-", "15"}], ")"}], "/", "2"}]], "Input",
 CellChangeTimes->{{3.726414880579004*^9, 
  3.72641489795417*^9}},ExpressionUUID->"85fb6a48-6f46-485f-a986-\
bc23d582c5c9"],

Cell[BoxData["185"], "Output",
 CellChangeTimes->{
  3.7264148999856405`*^9},ExpressionUUID->"fea14bea-ac96-447c-a448-\
0f60eb312612"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8c03\:540e\:9000\:901f\:7387\:4f7f\:5b58\:6d3b\:65f6\:95f4\:6700\:957f\
", "Subsection",
 CellChangeTimes->{{3.7264126952539396`*^9, 
  3.7264127170762095`*^9}},ExpressionUUID->"3b1a02d3-6aec-4ab7-b3a4-\
12572f78e2f5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"n", "=", "1"}], ";", 
   RowBox[{"y", "=", "570"}], ";", 
   RowBox[{"y0", "=", 
    RowBox[{"y", "+", "185"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{
  "(*", " ", 
   "\:5f00\:5c40\:5148\:628a\:9635\:7ebf\:5c3d\:91cf\:5f80\:524d\:63a8\
\[Ellipsis]", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"While", "[", 
   RowBox[{
    RowBox[{"n", "<", "460"}], ",", 
    RowBox[{
     RowBox[{"checklineC", "[", "]"}], ";", 
     RowBox[{"y0", "--"}], ";", 
     RowBox[{"y", "--"}], ";", 
     RowBox[{"n", "++"}]}]}], "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", "\:4e2d\:76d8", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"While", "[", 
  RowBox[{
   RowBox[{"n", "<", "4000"}], ",", 
   RowBox[{
    RowBox[{"checklineC", "[", "]"}], ";", 
    RowBox[{"n", "++"}], ";", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{
      "\:968f\:7740\:6e38\:620f", " ", "bps", " ", 
       "\:7ebf\:6027\:52a0\:5feb"}], "\:ff0c", 
      "\:89e6\:70b9\:5e94\:5300\:901f\:540e\:64a4"}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Mod", "[", 
        RowBox[{"n", ",", "50"}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{"y0", "++"}]}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.725976569520769*^9, 3.725976643072662*^9}, 
   3.7259767703475876`*^9, {3.7259772497185364`*^9, 3.7259772546219287`*^9}, {
   3.7260014809737854`*^9, 3.7260014885277104`*^9}, 3.7260015525061197`*^9, {
   3.7260016698285723`*^9, 3.726001676761552*^9}, 3.726001876111522*^9, 
   3.7260025674545493`*^9, 3.726002817723105*^9, 3.726003145496038*^9, {
   3.7260043445649633`*^9, 3.726004369977785*^9}, {3.726004401784481*^9, 
   3.7260044082599106`*^9}, {3.726004736011421*^9, 3.726004827557646*^9}, {
   3.726004858027726*^9, 3.726004895397007*^9}, {3.7260049732635036`*^9, 
   3.726004988007931*^9}, {3.726005088016179*^9, 3.726005103778763*^9}, {
   3.7260053229793863`*^9, 3.7260053809645057`*^9}, {3.7260054327438545`*^9, 
   3.726005466922026*^9}, {3.726005574807111*^9, 3.726005584277416*^9}, {
   3.726005704550661*^9, 3.726005725325203*^9}, {3.726005791016857*^9, 
   3.726005801330636*^9}, {3.7260326840180483`*^9, 3.726032786337493*^9}, {
   3.7260332543146343`*^9, 3.726033257097459*^9}, 3.726033332602045*^9, {
   3.7260334030353303`*^9, 3.7260334138643265`*^9}, 3.726033534873741*^9, 
   3.7260336958310933`*^9, {3.726033795331489*^9, 3.726033797929084*^9}, {
   3.7260338630061426`*^9, 3.726033881516777*^9}, {3.726033920125008*^9, 
   3.7260339202930202`*^9}, 3.726034140529395*^9, {3.7260345666602187`*^9, 
   3.726034579397365*^9}, {3.726034674619891*^9, 3.7260346893144913`*^9}, {
   3.726034838947912*^9, 3.7260348418012514`*^9}, {3.7260374060241904`*^9, 
   3.7260374071105976`*^9}, {3.726039598984212*^9, 3.7260396021395006`*^9}, {
   3.726039681499805*^9, 3.7260397091444516`*^9}, {3.7260397455358133`*^9, 
   3.7260397807095203`*^9}, {3.726040044739202*^9, 3.7260400562967587`*^9}, {
   3.7260409674433527`*^9, 3.7260409676794767`*^9}, {3.7260428639976225`*^9, 
   3.7260428656651993`*^9}, 3.7260434695393443`*^9, 3.7260437455871773`*^9, {
   3.7260509090479937`*^9, 3.726050912162624*^9}, {3.7260509462091637`*^9, 
   3.7260509622759867`*^9}, 3.7260509983253984`*^9, 3.726051688352867*^9, {
   3.7260518858015213`*^9, 3.7260518862332797`*^9}, 3.72605201147064*^9, 
   3.7260522534106627`*^9, {3.726052425671691*^9, 3.7260524612896786`*^9}, {
   3.726052764363434*^9, 3.726052764682762*^9}, {3.726053194821686*^9, 
   3.7260532234585996`*^9}, {3.726054867281863*^9, 3.726054930796424*^9}, 
   3.7260550803455515`*^9, {3.7260551310000763`*^9, 3.726055146934782*^9}, {
   3.726055311360138*^9, 3.726055312963813*^9}, 3.726055919232994*^9, {
   3.7260568642050867`*^9, 3.726056948626891*^9}, {3.726056990497716*^9, 
   3.726057030086046*^9}, {3.726057467986033*^9, 3.726057499126376*^9}, {
   3.726069884994578*^9, 3.7260698851671557`*^9}, {3.726070214011381*^9, 
   3.726070247391887*^9}, 3.726070423941222*^9, 3.7260709914226437`*^9, 
   3.726071407421703*^9, {3.726072257714093*^9, 3.726072284312599*^9}, {
   3.726072317054859*^9, 3.7260723217704535`*^9}, {3.7260725391868*^9, 
   3.7260725403591857`*^9}, {3.726072726437519*^9, 3.726072727638488*^9}, {
   3.7260727582026253`*^9, 3.726072776026434*^9}, {3.726072985545932*^9, 
   3.7260730223752303`*^9}, {3.7260732238480277`*^9, 3.7260732349684587`*^9}, 
   3.726073279819859*^9, 3.7260733392381954`*^9, 3.7260734891537695`*^9, 
   3.7260736920771265`*^9, 3.726073774692771*^9, {3.726073944493408*^9, 
   3.726073960073595*^9}, 3.7264068165486465`*^9, 3.7264113731489697`*^9, {
   3.7264116714447927`*^9, 3.7264117260323496`*^9}, 3.7264119963293076`*^9, {
   3.7264121232562027`*^9, 3.7264121237056975`*^9}, 3.7264122930603056`*^9, {
   3.7264149069635086`*^9, 3.7264149545445156`*^9}, 3.726415092709063*^9, {
   3.7264151423718863`*^9, 3.726415142704968*^9}, 3.726415266880658*^9, 
   3.726415458397088*^9, 3.726415667204028*^9, {3.7264158430854187`*^9, 
   3.726415846946557*^9}, {3.726420525265622*^9, 
   3.726420529131275*^9}},ExpressionUUID->"dfa25280-fc13-4b19-9d4e-\
ace9216ee0ec"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dynamic", "[", 
  RowBox[{"{", 
   RowBox[{"n", ",", "y", ",", "y0"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.72604495116928*^9, 
  3.7260449563648887`*^9}},ExpressionUUID->"7f89985c-b2b6-492c-896f-\
73b9c28ff79f"],

Cell[BoxData[
 DynamicBox[
  ToBoxes[{$CellContext`n, $CellContext`y, $CellContext`y0}, StandardForm],
  ImageSizeCache->{246., {5., 19.}}]], "Output",
 CellChangeTimes->{3.726005692812557*^9, 
  3.726044956826525*^9},ExpressionUUID->"8ca2d558-0828-4009-9a6e-\
81078a77c93e"]
}, Open  ]],

Cell["\<\
If[Mod[n,4]\[Equal]0,y0++] \:6b7b\:4e8e n=1300\:ff0cbps=8.1/s
If[Mod[n,10]\[Equal]0,y0++] \:6b7b\:4e8e n=2550\:ff0cbps=12.3/s
If[Mod[n,20]\[Equal]0,y0++] \:6b7b\:4e8e n=2850\:ff0cbps=13.5/s
If[Mod[n,50]\[Equal]0,y0++] \:6b7b\:4e8e n=2050\:ff0cbps=10.6/s
y0 \:4e0d\:53d8 \:6b7b\:4e8e n=1790\:ff0cbps=9.8/s\
\>", "Text",
 CellChangeTimes->{{3.7264125309908657`*^9, 3.7264125669439726`*^9}, {
  3.7264150536046543`*^9, 3.7264150549818697`*^9}, {3.726415116419012*^9, 
  3.7264151276782064`*^9}, {3.7264154391915426`*^9, 3.726415451766838*^9}, {
  3.7264156469454803`*^9, 3.726415662729705*^9}, {3.7264158086389513`*^9, 
  3.72641583740034*^9}, {3.726415970927433*^9, 
  3.726415980005102*^9}},ExpressionUUID->"138e27ef-6b59-4b0f-951d-\
c3ca0f20c9c6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"Plot", ",", 
    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.7255537590635843`*^9, 3.725553843494896*^9}, {
  3.7255539287601967`*^9, 3.725553954104521*^9}, {3.7255539848127537`*^9, 
  3.725554029545247*^9}, {3.725554070563734*^9, 3.725554092589033*^9}, {
  3.726416089625715*^9, 
  3.7264160979070187`*^9}},ExpressionUUID->"111390af-1ce4-4852-8b78-\
a16ccefcdb2d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "mod_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"s", "-", "450"}], ")"}], "/", "mod"}], "+", "185"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.726416678779608*^9, 3.7264166982206483`*^9}, 
   3.7264171282318516`*^9},ExpressionUUID->"9dfb7389-27f2-4ded-97b8-\
9bd39442523a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"data", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"450", ",", 
      RowBox[{"-", "15"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"450", ",", "385"}], "}"}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"s", ",", 
       RowBox[{"f", "[", "4", "]"}]}], "}"}], "/.", 
     RowBox[{"s", "\[Rule]", "1300"}]}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"s", ",", 
       RowBox[{"f", "[", "10", "]"}]}], "}"}], "/.", 
     RowBox[{"s", "\[Rule]", "2550"}]}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"s", ",", 
       RowBox[{"f", "[", "20", "]"}]}], "}"}], "/.", 
     RowBox[{"s", "\[Rule]", "2850"}]}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"s", ",", 
       RowBox[{"f", "[", "50", "]"}]}], "}"}], "/.", 
     RowBox[{"s", "\[Rule]", "2050"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"1790", ",", "185"}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.726417007355982*^9, 3.726417031637021*^9}, {
  3.7264170835799246`*^9, 
  3.726417100956668*^9}},ExpressionUUID->"7cd7e649-8f5c-486e-a576-\
46df5ffcd249"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"450", ",", 
     RowBox[{"-", "15"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"450", ",", "385"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1300", ",", 
     FractionBox["795", "2"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2550", ",", "395"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2850", ",", "305"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2050", ",", "217"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1790", ",", "185"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.726417031963406*^9, 3.7264171310694933`*^9, 
  3.7264177175384636`*^9},ExpressionUUID->"68b6e0ea-84fe-4075-9184-\
12dbabe577e1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\n", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"f", "[", "4", "]"}], ",", 
       RowBox[{"f", "[", "10", "]"}], ",", 
       RowBox[{"f", "[", "20", "]"}], ",", 
       RowBox[{"f", "[", "50", "]"}], ",", "185"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"s", ",", "0", ",", "4000"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "150"}], ",", "700"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<n\>\"", ",", "\"\<pixel\>\""}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      InterpretationBox[
       ButtonBox[
        TooltipBox[
         GraphicsBox[{
           {GrayLevel[0], RectangleBox[{0, 0}]}, 
           {GrayLevel[0], RectangleBox[{1, -1}]}, 
           {RGBColor[0.368417, 0.506779, 0.709798], 
            RectangleBox[{0, -1}, {2, 1}]}},
          AspectRatio->1,
          Frame->True,
          
          FrameStyle->RGBColor[
           0.24561133333333335`, 0.3378526666666667, 0.4731986666666667],
          FrameTicks->None,
          
          ImageSize->
           Dynamic[{
            Automatic, 
             1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])}],
          PlotRangePadding->None],
         "RGBColor[0.368417, 0.506779, 0.709798]"],
        Appearance->None,
        BaseStyle->{},
        BaselinePosition->Baseline,
        ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
          If[
           Not[
            AbsoluteCurrentValue["Deployed"]], 
           SelectionMove[Typeset`box$, All, Expression]; 
           FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
           FrontEnd`Private`$ColorSelectorInitialColor = 
            RGBColor[0.368417, 0.506779, 0.709798]; 
           FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
           MathLink`CallFrontEnd[
             FrontEnd`AttachCell[Typeset`box$, 
              FrontEndResource["RGBColorValueSelector"], {
              0, {Left, Bottom}}, {Left, Top}, 
              "ClosingActions" -> {
               "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
        DefaultBaseStyle->{},
        Evaluator->Automatic,
        Method->"Preemptive"],
       RGBColor[0.368417, 0.506779, 0.709798],
       Editable->False,
       Selectable->False]}], ",", "\n", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        InterpretationBox[
         ButtonBox[
          TooltipBox[
           GraphicsBox[{
             {GrayLevel[0], RectangleBox[{0, 0}]}, 
             {GrayLevel[0], RectangleBox[{1, -1}]}, 
             {RGBColor[0.560181, 0.691569, 0.194885], 
              RectangleBox[{0, -1}, {2, 1}]}},
            AspectRatio->1,
            Frame->True,
            
            FrameStyle->RGBColor[
             0.37345400000000006`, 0.461046, 0.12992333333333334`],
            FrameTicks->None,
            
            ImageSize->
             Dynamic[{
              Automatic, 
               1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                Magnification])}],
            PlotRangePadding->None],
           "RGBColor[0.560181, 0.691569, 0.194885]"],
          Appearance->None,
          BaseStyle->{},
          BaselinePosition->Baseline,
          ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
            If[
             Not[
              AbsoluteCurrentValue["Deployed"]], 
             SelectionMove[Typeset`box$, All, Expression]; 
             FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
             FrontEnd`Private`$ColorSelectorInitialColor = 
              RGBColor[0.560181, 0.691569, 0.194885]; 
             FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
             MathLink`CallFrontEnd[
               FrontEnd`AttachCell[Typeset`box$, 
                FrontEndResource["RGBColorValueSelector"], {
                0, {Left, Bottom}}, {Left, Top}, 
                "ClosingActions" -> {
                 "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
          DefaultBaseStyle->{},
          Evaluator->Automatic,
          Method->"Preemptive"],
         RGBColor[0.560181, 0.691569, 0.194885],
         Editable->False,
         Selectable->False], ",", 
        RowBox[{"PointSize", "@", "Large"}], ",", 
        RowBox[{"Point", "[", "data", "]"}]}], "}"}]}]}], "]"}], ",", "\n", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
         "data", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "+", 
         "40"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "@", "data"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"ToString", "/@", 
       RowBox[{"Range", "@", 
        RowBox[{"Length", "@", "data"}]}]}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      InterpretationBox[
       ButtonBox[
        TooltipBox[
         GraphicsBox[{
           {GrayLevel[0], RectangleBox[{0, 0}]}, 
           {GrayLevel[0], RectangleBox[{1, -1}]}, 
           {RGBColor[0.560181, 0.691569, 0.194885], 
            RectangleBox[{0, -1}, {2, 1}]}},
          AspectRatio->1,
          Frame->True,
          
          FrameStyle->RGBColor[
           0.37345400000000006`, 0.461046, 0.12992333333333334`],
          FrameTicks->None,
          
          ImageSize->
           Dynamic[{
            Automatic, 
             1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])}],
          PlotRangePadding->None],
         "RGBColor[0.560181, 0.691569, 0.194885]"],
        Appearance->None,
        BaseStyle->{},
        BaselinePosition->Baseline,
        ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
          If[
           Not[
            AbsoluteCurrentValue["Deployed"]], 
           SelectionMove[Typeset`box$, All, Expression]; 
           FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
           FrontEnd`Private`$ColorSelectorInitialColor = 
            RGBColor[0.560181, 0.691569, 0.194885]; 
           FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
           MathLink`CallFrontEnd[
             FrontEnd`AttachCell[Typeset`box$, 
              FrontEndResource["RGBColorValueSelector"], {
              0, {Left, Bottom}}, {Left, Top}, 
              "ClosingActions" -> {
               "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
        DefaultBaseStyle->{},
        Evaluator->Automatic,
        Method->"Preemptive"],
       RGBColor[0.560181, 0.691569, 0.194885],
       Editable->False,
       Selectable->False]}]}], "]"}]}], "\n", "]"}]], "Input",
 CellChangeTimes->{{3.7264159896155553`*^9, 3.7264160568936853`*^9}, {
  3.7264161362735643`*^9, 3.72641615502514*^9}, {3.726416247271619*^9, 
  3.726416669989216*^9}, {3.726416703557459*^9, 3.7264168658409557`*^9}, {
  3.7264170151088114`*^9, 3.726417017117791*^9}, {3.726417137655966*^9, 
  3.726417147598007*^9}, {3.726417256990637*^9, 3.726417293830903*^9}, {
  3.7264173319561586`*^9, 3.726417338041942*^9}, {3.726417371904548*^9, 
  3.7264173876715274`*^9}, {3.7264174499159756`*^9, 3.7264174847647696`*^9}, {
  3.7264176558340545`*^9, 3.726417657837427*^9}, {3.7264182374613233`*^9, 
  3.726418237807048*^9}},ExpressionUUID->"dd22a7a7-e7a5-4b38-ad9d-\
4a55cf401a54"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwlxQtIU2EAhuHTGqWJuCmjaTGco1S6YFsRpW5fZQ7dLJplZVoxnUWsM295
mbnUbdkiwuWyFHXnTBMhQiEQW9OMRkgQalCszNQsKEJ0jq5alP0vvDxirUGj
41AUtfHfy35ZWFKnFggU2yObj1DRGhTfqZSlsAHFf2QaVITMFkSyK7H2zXPp
XqUGVYNdFJeNwK8WDs9Ca/D7ljnjJyPB0Hr9s9UDGgxyFwIBRgZ1tEIRlp0J
UWK80s/sQ37sxziR4zAOvPLOzzGZcOzYtpQYdBSwm0P2l+aDGX5sjcnOAT+Q
1WvPo+H1CPQfuk9D/rDiUDWvFM5cT7dcmAemZPDe22OVGN01mUV7dHiXNvFi
MdWEuU76c7XsLHQq46x2pJY4eQ573N+5I7SFaDqPkP5pat30ZaLfgE1+JZ10
xYamH5KdInURdj+IGkrmXENbTuiUyFaMnrRTG54arsPX2RM+86gEA2t4f/i2
BiL/AqL6u8Z7n9iJqjLEmBeL3MJGIlOOk9LgG/VnHMS5CvDjMzq9zpvEWCMM
yQcN+oUmorEKKc31my1bbxP7LsIbbnKtsjYTQ00oL9ziUr9sIeZeAiuIcHDC
WjF6NTi9VlWDcl+fXJLXhiT9Caf9aw287xvG7zPt0BYNzx531CJlTMIJ8jnh
+sRfwU2oQz/tLpxxMERfHWxC02ujlCWWmZEwxrQrJ1ii2IL5RWfcN4uLOGyB
Pt19N0fcQdRZQS3X2kGcsuIvCTIOCA==
        "]]},
      Annotation[#, "Charting`Private`Tag$2727804#1"]& ], 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjn041AcAxy9UVJRKobpwWxGmyNbUdV+xEx2e2Kx6Kt0RMe/O63H9OCmP
yvu77sV7Xu5XOg2TUldGG7JenLetrJ603fJadLG1Pz7P58/Px5gT6nFajUKh
uH7if/819ZHF9NNjVAipuhSCjYjKOBtHyTTD+GW5tlLARuxKpZ+BRB1Cc7MV
g+fZ4LVXUTQk61DYbKMuy2BjoUDgOi+m4VL/wVl/ERvtGlPT02IbRC+LVPS2
s0Hda+Y0KXaAU0inRLTAhttT+cRbsSfe0MOsGTwOkCVY+Q3XF60d25LE6T7Q
nfa6luUTgtfXNedm0nyx/6fYw4lruFCk8x1YgtMQR7Y3DB+Jg6fL0bb7WX4Y
dR7pVzH5sIjyPmF92R+nD8UrOb1JyEjpNu8QnYF963uN3pAUyBK7ejzqA7Cy
+Tll0/NU7BmbLnpWFQjzSaeQfRfS4GgpyObf/AF2LYZ36GoXcX2MfkNfFgTS
2fvzB6GX8YfgYk1TfTBurVizqJuWiQJNPOS2hsCwuWro2r0sSOepG7bfDIWJ
QBXeqp+Dav9dnYk+YThprZV93j8XR52uBAeMh0HXzLVCLsqD3Qi1xs0vHKF0
99CgqXyceukxL1eGw7HovEXKF4VoKi8d3R0UAflaftmyc0Vwe1w4aDsbgZgw
yzLWk2J0zY+imRcJid66XLXVpeA+sdu7ez4SMQM399N8rsCH5syyT+JC/iJz
6IZYiOTtwZNOlCg4PqKpaQ6IkGw0ROlLiEJzSGvYWK4YD9JV28bVo5Gmz1fE
W0tg17DruSopGjsfiYVOIxLMwLBRtCIGEyqR6buUMlzqYinlmTEIcmmtO25c
Di/NvLYx7VjcqrZJn+suh29LRllOXiy6TX/2YQVUoMxIvJm+Pg6Tm75ekqxR
iY6ED5QzmXFQbtFS/V1fic8OLf9I2xiPSocZ5WqXKjT3mqUrcuNhHbuffmam
CpcfLO402sIDr6/8XGxONfIjxwNPlfIwUvwyO9CqBnw96moTgwTocVM/Zg3U
oM5saTdXnACt8APe4dFXsXxmiUEHNRH9CSeoqca1qNl5nS+sTkTTh2/LErpq
Yc6pdVuw5MOz1H+ruV8dhp1bGr+r46OTpZjTWVOP38rjLRk2Z/HOyO9hrbQe
czcO7zNpPAuGfy/H1KUBxPGWYw4bCZxsK/AammrANv1yk/ZjBPbY8hyYmVL8
KS2QNRUReMo7sGNpjhRpu2QjPcUEou5q6crzpLCS9S17XUKg0b1w1L5EivgW
raOGQgIWgU1x9Cop1sp5C/wyAkait+TuNimg8GYerCOgpeW7mfZaCqG66cBg
G4Ead3P1F2+kcEx1XDJziwAzf2pcrJRiXJO9Q/s2gRRa0o/UaSlsdYoTGB0E
FulCD8NFKX7RX2VccZ/AVMTABd31JD5YTgQE9xDIbBGF9m0gIb62Kie1l4AV
xd8rw4AE08asTdRHIOjSLE17K4nsPRyd/n4Cr6rX3tbcQcLM4XHjl88+9f5R
VHZakOi5PzHkPkCAZiu5mGpFgntQe2mAgsCpu1bHNGxJ3HFlfl8y9OlH8z3u
fUXCr49DyIYJXHFv355sR2KV59mrv44Q2Jd/TseeTqLxSUn/q1ECg8Os2X8Z
JI4caVb9+zuB/wByO0Q0
        "]]},
      Annotation[#, "Charting`Private`Tag$2727804#2"]& ], 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjnlYjAkAh0cNSofK8SQrMna3i1Dt2qh+KRPtZFRUPFaZppnu6Zg+3Y5q
6HHNdEx3M1PNlDCfJ0W1xDLYXB2bttvSslhDl+iQtX+8z/vn+5qxeN7BGhQK
xfMr//vf0RkGnbPE2Zt5Vouyi41YeaKtm2zMWTjaLpjwYiNBR81ZJtNEa97i
uWofNpKbFRSqbBEY/YVzev3Y+Jyf7jkppYEeWjl1OYCNZuro2JjUFpvTG99y
eWyYbrZwH5G6Ys3VobbWM2zs7FINv5f64IPppkLJIzYgStfZxmdjIDAHbXuC
YTjme0kUFIVxf2rKVGcwnH5N8Eo14EO97YaZwosDaVzzxX7/RFjKrQefd3Mw
uGOgY5qeBnETuW6ZHxfBPyepWa1H4b71Rd5fT7lwafpIbY3KQG8zm2vBCYFO
wzPK8mcClIxMPgwfCoHViHvUlhNZKBe77HAOD4VDo8lNR41T6B4p26v7JhTk
joBv7/LOYNiF3rmPE4brCwxmDbOEYFClwQ7qMJg0KPou3Rbhz5SFJxeFh2N1
+nRMk3EOqrgb7qWOhePARu3s49xc7HUvjQxNjIChhWelSpIHhwHT6p0TEeA5
MnkRo2IEvvCeVKVGwq3wuHXGugLUV5QM2s1EQmWUVj4vsxA7Owt67TOjcCh6
bTnjSRFaJgfRoMODbMmiXI2FJeA/cdhsl8XDoe4rTrSgUtSK1iikWtFQPRf2
XZaW4becK59o26Ph1k7T0OqWwEUYSQkRRKMhqil6KFeKoTupOeMt0cgyTutJ
2ihDaVfB8GetGKxvl5a5D8iQtEqvh+kZg+FpiflERjnushUESxiDCI+m8/vN
KmCV4TE48jgG16tsT366X4Hafvf2FqNY3Df/PYgRWgkvg11nTL1jMbL8pznH
qHIEOqVS7ISxUK/Qnn57QY5sueas6I9YyF3H1Qs9FOj/J/dOhFEcNiY4OYaM
K+AedNhY6BuH5LaKzIScKjxo5NuvF8dhoOhFdphNNW4sODtf1BmHJXzBjKi7
Gl25GsEOxnxox2wNiCHOgTp15FSgHx8dKb+YCsxqsLvA37m1mI/6qd3lKS01
WLphT9XsIB8+JdyVVpzzeFe5v6dmRTzuMXo+6RtcwBuv62LJwXhMrOI8qFFe
wEyPuamhLB7O3FaWucdFHNnfuM/1aTwOXMv37Ru9iO+MK1Y3ryawyT7ZlS5U
4m9lfl39QQJdyVst5+YokbWhbuAxi0D8LW1DVZ4SNnVt814FEahlFgy6FCuR
1Ki914RDwDqsPtFRoYSRKvlzWhiBVZL3pN01JdATQN8eR0Bbm/0N7ZUSZZrm
3b0ZBKqZVprP3yjhJnCbM55JgC4efS1VK/Fa66Cl3nECGbSjV03HlLDXL0px
ziIw61jmbTKrxENjXbPK0wRGY7tPGC4mMbV2ODRSTEDYKOG1LSUhvaSbI8gn
YEPh+p5dRoJua3FNUkAg4vQHmt5KEtmbWPodRQReVhnd0LIkYeHaWfuD5Gvv
XY/8njWJx3eG+5hSAjR72SmBDQn+dr25oTICgbds9lHtSdz0pPsVV3z90fqI
2z+S4LSxjtRVEihlNn9/zIGErs/hc4/kBLaIM/VdHEnUPinueKkg0NvP+PDF
mYS/f8P0lyoC/wGbA0NT
        "]]},
      Annotation[#, "Charting`Private`Tag$2727804#3"]& ], 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjns0FHgAhSdkDa2M0qKiyVak0pJ2V425KCSaE23pQQnzMuaXUhFZeUVp
venJDI2Rx0xl85hQy+yqlLCbSHXCpsc2GyMlr9b+cc893/n+uJe+n3gHa1Ao
FK/p/N//qCc8XdlGTHqSQJNCYeOgJNJug3iY+VWAQuPuNEfoqdgmYk28W6ej
kTmDjaiGYoqWeA5qhooo32qyMZkX7/VZZAGWX8+kmzYbDVrq4WGRHWLWeIym
zWLDbJ2V25DIBT19y1TmJmxs6VQOvhf5IIfZ38m0ZQMZ8Xobw4Nwa6mwspbL
Bm14+9WMQCHGU1qD8i6w4XgzYutxg3BYs0ykhx+wITrUUPHUNxI05wj1GU0O
nm961jHuGgPqtXJD3bUcBG8+ptr/8ASqvEbW3RZw4KT4pPVQmIAdnpYfjxRy
oFfTS5nfmwS95tWJGX9xYD3kJlyfnIJw4rVwQJcLh1rT2wyNVAxmMU/lM7iQ
b9q75A/yC/aZLkjeQbio1zWYoqWkI7F1VpqHhAvTmuKeq00ZqJvq4Isfc7E4
fjxMYZyFK3sqWLb6PPjbUjNPcrJxasHB35tceKBZeV1WFuQgxneWQe1hHgiD
RQTqXCxtVAS+LuNhw7mTKxJWnUWf1DE16jkPSsOYQu3Ec/C52VnvbsTH0QMr
Cz0fnUf16p2x8zbzITaak60x+yJWLb72jfvxad9V5WgReAm7nRbWVFbyoexL
76kU5eP8U/+V8QN8bGi30NDpKkBr9yk7H+MQ1AgVB/qzRajSanH22xKCFOOY
7mO2Ylwre7G0JTYEq9tF+W7PxAiI1Z17qDoEg+MFlh8TCjGz2ixzvioEAg9F
2R56Eep4Oi+XmQtQL7U7PXqvCJYe2k7CnwS4Z3kn0JN3GdLi7jDjZAGG5v84
I05LAtPgPLumWgFUC6nj78olcN7Km5K+F0Di8kE126MY0bUG+YP0UNhGODK4
H4ohYN13PeQbiqi2osSILClIgJ9y5+lQPDv/MpNvUwL2o64O1IfCKDxpIqOr
BLSj3LcBw6GghjnvDTtyBW3ZDzoHlgjREe1nlkQvhcsL1/uSPULcGNtWGH23
FKVnSr2DM4Xwucgxt2aXYUl1f0WyUohmz+5RfYNybNP/znBgTIiPi9gtpbJy
5Pb6bJauJGByHu639KjA/XkBRry9BP51edt71BWoiYx7HZRD8IN9lItrugxV
vpHpymaCzijn5TOzZHD4zSpGcofgcCOVpsyR4ZbVk5CkuwTXWWefO12Q4c6Y
g5t7C8EK/o1IRrEMPRcnJltaCRYVvJevqZOB0vtzyJ+PCKjUoAUWr2Xw4CW5
9vUTlLCsNfveytDWvnZN098ErrnqNyKVDNscXtEvvyRIsDhRbTYsg7+e+2Tw
K4IpRr636ZQMByqov755S6A+2JVMmytHzlAqfWiIIL22gLTNk8N0F2N2h5rA
hsLZnmYiR36jauL6MIHgzIjF1+ZylGRt6QofIRiQGt7SWS6Hwt4gbXR0eu/f
bknzCjmY+bejuz8TWNiLU5Ns5FBqh/EVYwT7Gm12adnL8eBx+8boiek/Op/Q
9L0c3oiz85skuMRqWBbnIEdniS3dcYpgfW6ivhNDjt20fn3zLwRPnnqOfGHK
8SIya+LLNP8H6/5ADw==
        "]]},
      Annotation[#, "Charting`Private`Tag$2727804#4"]& ], 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ/frTHx+3NFF7BhBQSHeQs9Z0/7jA2QHG97t25MP7
BcFwvsPEZm7XkhQ4X/Bz2IaJyXlwvt3uisBagRI4f0HxvrV3Iirh/Huedy/9
dquD81O9q94mnW+E8x13fWc5n9cC53PveMgg/bANztf+6J5n09EJ51vtlDpg
y9QD56/3jFc9lt8H5+/lEvgn2DkBzpfasez2hsMT4Xyl5t+FuyQmw/lxRpyT
2tOnIPyn6bvkyPypcH6+rX9+zqdpcL7LzHadFr0ZcP4RobpFbK0z4fzyAt1F
PldnwfkLRYWnMPHPQcjf2GannDwXof/RhNubF8xDmH9RmYnjxnw4f0feroLH
UxbA+Z0SdTerjBbC+QYXF8xzv4vgf/g9X+NbyyI4P8dr1+oYxcWI8Flu3P3j
FIJ/SuNEsk/mEjj/o7QlYxPLUjj/rSzn7zdrEPylzl/e8nstg/ONKuxsM74g
+NUXFrdWTF4O59+d9XRSlv4KOF+0pO3PxBsIPmehU3xh2Uo4/1JNrFyb4io4
f+uvkEU1JxH84Dnp8tppq+H84z43f/AJrIHzvymknV61DsG3Tz+fpOG1FhHf
e6aH3f6E4FuYVju7TViHcA9niozyCwT/1h2fr//t18P5AB3G7kM=
        "]]},
      Annotation[#, "Charting`Private`Tag$2727804#5"]& ]}, {}, {}}, {{}, {
     {RGBColor[0.560181, 0.691569, 0.194885], AbsolutePointSize[6], 
      AbsoluteThickness[1.6], GeometricTransformationBox[
       TagBox[InsetBox["1", {0., 0.}],
        "InsetString"], {{{490., 25.}}, {{490., 25.}}}]}, 
     {RGBColor[0.560181, 0.691569, 0.194885], AbsolutePointSize[6], 
      AbsoluteThickness[1.6], GeometricTransformationBox[
       TagBox[InsetBox["2", {0., 0.}],
        "InsetString"], {{{490., 425.}}, {{490., 425.}}}]}, 
     {RGBColor[0.560181, 0.691569, 0.194885], AbsolutePointSize[6], 
      AbsoluteThickness[1.6], GeometricTransformationBox[
       TagBox[InsetBox["3", {0., 0.}],
        "InsetString"], {{{1340., 437.5}}, {{1340., 437.5}}}]}, 
     {RGBColor[0.560181, 0.691569, 0.194885], AbsolutePointSize[6], 
      AbsoluteThickness[1.6], GeometricTransformationBox[
       TagBox[InsetBox["4", {0., 0.}],
        "InsetString"], {{{2590., 435.}}, {{2590., 435.}}}]}, 
     {RGBColor[0.560181, 0.691569, 0.194885], AbsolutePointSize[6], 
      AbsoluteThickness[1.6], GeometricTransformationBox[
       TagBox[InsetBox["5", {0., 0.}],
        "InsetString"], {{{2890., 345.}}, {{2890., 345.}}}]}, 
     {RGBColor[0.560181, 0.691569, 0.194885], AbsolutePointSize[6], 
      AbsoluteThickness[1.6], GeometricTransformationBox[
       TagBox[InsetBox["6", {0., 0.}],
        "InsetString"], {{{2090., 257.}}, {{2090., 257.}}}]}, 
     {RGBColor[0.560181, 0.691569, 0.194885], AbsolutePointSize[6], 
      AbsoluteThickness[1.6], GeometricTransformationBox[
       TagBox[InsetBox["7", {0., 0.}],
        "InsetString"], {{{1830., 225.}}, {{1830., 
       225.}}}]}, {}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Epilog->{
    RGBColor[0.560181, 0.691569, 0.194885], 
    PointSize[Large], 
    PointBox[
     NCache[{{450, -15}, {450, 385}, {1300, 
        Rational[795, 2]}, {2550, 395}, {2850, 305}, {2050, 217}, {1790, 
       185}}, {{450, -15}, {450, 385}, {1300, 397.5}, {2550, 395}, {2850, 
       305}, {2050, 217}, {1790, 185}}]]},
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox["\"pixel\"", TraditionalForm], None}, {
     FormBox["\"n\"", TraditionalForm], None}},
  FrameTicks->FrontEndValueCache[{{Automatic, 
      Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
      Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {200., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {400., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {600., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-200., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-150., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-100., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-50., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {50., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {100., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {150., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {250., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {300., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {350., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {450., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {500., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {550., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {650., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {700., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {750., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {800., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}, {Automatic, {{0., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {1000., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {2000., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {3000., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {4000., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-1000., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-800., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-600., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-400., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-200., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {200., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {400., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {600., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {800., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1200., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1400., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1600., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1800., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2200., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2400., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2600., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2800., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3200., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3400., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3600., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3800., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4200., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4400., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4600., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4800., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {5000., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}}],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 3999.999918367347}, {-150, 700}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7264160371090527`*^9, 3.7264160579432373`*^9}, 
   3.7264161009851103`*^9, {3.7264161379368515`*^9, 3.726416156028494*^9}, 
   3.72641628809524*^9, {3.7264163260438933`*^9, 3.726416330842829*^9}, {
   3.7264164476128244`*^9, 3.726416596917782*^9}, 3.7264166304692817`*^9, 
   3.7264166622640386`*^9, {3.7264167152639513`*^9, 3.726416742816616*^9}, {
   3.7264167908568225`*^9, 3.7264168664956865`*^9}, 3.726417024287033*^9, {
   3.7264171386626406`*^9, 3.7264171491428633`*^9}, 3.7264172945679607`*^9, {
   3.726417334134674*^9, 3.7264173384740953`*^9}, {3.726417372574647*^9, 
   3.726417388918414*^9}, 3.7264174855059547`*^9, 3.726417658403941*^9, 
   3.7264182389838514`*^9},ExpressionUUID->"245644ff-6804-4941-bb69-\
c76a319d0ccc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"line1", "=", 
  RowBox[{
   RowBox[{"LinearModelFit", "[", 
    RowBox[{
     RowBox[{"data", "\[LeftDoubleBracket]", 
      RowBox[{"{", 
       RowBox[{"1", ",", "7", ",", "6", ",", "5"}], "}"}], 
      "\[RightDoubleBracket]"}], ",", "s", ",", "s"}], "]"}], "//", 
   "Normal"}]}]], "Input",
 CellChangeTimes->{{3.7264169247231436`*^9, 3.7264169397205873`*^9}, {
  3.7264169810915318`*^9, 3.726416994698696*^9}, {3.7264176725391226`*^9, 
  3.726417807579937*^9}},ExpressionUUID->"5e87cb4d-e218-4861-93f2-\
f2bcb5595df4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "68.02012254327518`"}], "+", 
  RowBox[{"0.1350252787357284`", " ", "s"}]}]], "Output",
 CellChangeTimes->{{3.7264177027284193`*^9, 3.726417724788266*^9}, {
  3.726417761746971*^9, 
  3.726417808753886*^9}},ExpressionUUID->"98802a18-411b-40ec-87e0-\
419113030737"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"line2", "=", 
  RowBox[{
   RowBox[{"LinearModelFit", "[", 
    RowBox[{
     RowBox[{"data", "\[LeftDoubleBracket]", 
      RowBox[{"{", 
       RowBox[{"2", ",", "3", ",", "4"}], "}"}], "\[RightDoubleBracket]"}], 
     ",", "s", ",", "s"}], "]"}], "//", "Normal"}]}]], "Input",
 CellChangeTimes->{{3.7264169247231436`*^9, 3.7264169397205873`*^9}, {
  3.7264169810915318`*^9, 3.726416994698696*^9}, {3.7264176725391226`*^9, 
  3.7264178193226013`*^9}},ExpressionUUID->"25b63779-f830-4922-8bdc-\
1f7e41b82d1d"],

Cell[BoxData[
 RowBox[{"386.3984316654219`", "\[VeryThinSpace]", "+", 
  RowBox[{"0.0042569081404032994`", " ", "s"}]}]], "Output",
 CellChangeTimes->{
  3.7264178201707563`*^9},ExpressionUUID->"aa54ec1b-ba89-4ee5-82f5-\
8a72f766c6a8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"line1", "\[Equal]", "line2"}], ",", "s"}], "]"}]], "Input",
 CellChangeTimes->{{3.7264179082224836`*^9, 
  3.7264179138757205`*^9}},ExpressionUUID->"b990774b-c10c-418f-8d22-\
323a17c685e1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"s", "\[Rule]", "3474.988272316535`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7264179141063986`*^9},ExpressionUUID->"e70f6b6a-cab3-420b-a26b-\
e47f47a3b943"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pos", "=", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"s", ",", "line1"}], "}"}], "/.", 
   RowBox[{"s", "\[Rule]", "3475"}]}]}]], "Input",
 CellChangeTimes->{{3.726418191822021*^9, 
  3.726418199025178*^9}},ExpressionUUID->"dbd91e41-bb15-4d02-9139-\
0bcea6069aaf"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3475", ",", "401.192721063381`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7264181999149303`*^9},ExpressionUUID->"6030650a-5650-4cd4-b523-\
b77a118750e0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"%211", ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"line1", ",", "line2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"s", ",", "0", ",", "3600"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      InterpretationBox[
       ButtonBox[
        TooltipBox[
         GraphicsBox[{
           {GrayLevel[0], RectangleBox[{0, 0}]}, 
           {GrayLevel[0], RectangleBox[{1, -1}]}, 
           {RGBColor[0.880722, 0.611041, 0.142051], 
            RectangleBox[{0, -1}, {2, 1}]}},
          AspectRatio->1,
          Frame->True,
          
          FrameStyle->RGBColor[
           0.587148, 0.40736066666666665`, 0.09470066666666668],
          FrameTicks->None,
          
          ImageSize->
           Dynamic[{
            Automatic, 
             1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])}],
          PlotRangePadding->None],
         "RGBColor[0.880722, 0.611041, 0.142051]"],
        Appearance->None,
        BaseStyle->{},
        BaselinePosition->Baseline,
        ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
          If[
           Not[
            AbsoluteCurrentValue["Deployed"]], 
           SelectionMove[Typeset`box$, All, Expression]; 
           FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
           FrontEnd`Private`$ColorSelectorInitialColor = 
            RGBColor[0.880722, 0.611041, 0.142051]; 
           FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
           MathLink`CallFrontEnd[
             FrontEnd`AttachCell[Typeset`box$, 
              FrontEndResource["RGBColorValueSelector"], {
              0, {Left, Bottom}}, {Left, Top}, 
              "ClosingActions" -> {
               "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
        DefaultBaseStyle->{},
        Evaluator->Automatic,
        Method->"Preemptive"],
       RGBColor[0.880722, 0.611041, 0.142051],
       Editable->False,
       Selectable->False]}]}], "]"}], ",", "\n", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      InterpretationBox[
       ButtonBox[
        TooltipBox[
         GraphicsBox[{
           {GrayLevel[0], RectangleBox[{0, 0}]}, 
           {GrayLevel[0], RectangleBox[{1, -1}]}, 
           {RGBColor[0.880722, 0.611041, 0.142051], 
            RectangleBox[{0, -1}, {2, 1}]}},
          AspectRatio->1,
          Frame->True,
          
          FrameStyle->RGBColor[
           0.587148, 0.40736066666666665`, 0.09470066666666668],
          FrameTicks->None,
          
          ImageSize->
           Dynamic[{
            Automatic, 
             1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])}],
          PlotRangePadding->None],
         "RGBColor[0.880722, 0.611041, 0.142051]"],
        Appearance->None,
        BaseStyle->{},
        BaselinePosition->Baseline,
        ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
          If[
           Not[
            AbsoluteCurrentValue["Deployed"]], 
           SelectionMove[Typeset`box$, All, Expression]; 
           FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
           FrontEnd`Private`$ColorSelectorInitialColor = 
            RGBColor[0.880722, 0.611041, 0.142051]; 
           FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
           MathLink`CallFrontEnd[
             FrontEnd`AttachCell[Typeset`box$, 
              FrontEndResource["RGBColorValueSelector"], {
              0, {Left, Bottom}}, {Left, Top}, 
              "ClosingActions" -> {
               "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
        DefaultBaseStyle->{},
        Evaluator->Automatic,
        Method->"Preemptive"],
       RGBColor[0.880722, 0.611041, 0.142051],
       Editable->False,
       Selectable->False], ",", 
      RowBox[{"PointSize", "@", "Large"}], ",", 
      RowBox[{"Point", "[", "pos", "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{"pos", ",", 
        RowBox[{"pos", "+", "40"}]}], "]"}]}], "}"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7264178285848775`*^9, 3.726417876570095*^9}, {
  3.7264179349627542`*^9, 3.726417969369556*^9}, {3.7264180066236353`*^9, 
  3.7264180314068427`*^9}, {3.7264181656742616`*^9, 
  3.7264182453920965`*^9}},ExpressionUUID->"5c190a1d-a490-4b66-a491-\
c2fbf090087b"],

Cell[BoxData[
 GraphicsBox[{{{{{}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwlxQtIU2EAhuHTGqWJuCmjaTGco1S6YFsRpW5fZQ7dLJplZVoxnUWsM295
mbnUbdkiwuWyFHXnTBMhQiEQW9OMRkgQalCszNQsKEJ0jq5alP0vvDxirUGj
41AUtfHfy35ZWFKnFggU2yObj1DRGhTfqZSlsAHFf2QaVITMFkSyK7H2zXPp
XqUGVYNdFJeNwK8WDs9Ca/D7ljnjJyPB0Hr9s9UDGgxyFwIBRgZ1tEIRlp0J
UWK80s/sQ37sxziR4zAOvPLOzzGZcOzYtpQYdBSwm0P2l+aDGX5sjcnOAT+Q
1WvPo+H1CPQfuk9D/rDiUDWvFM5cT7dcmAemZPDe22OVGN01mUV7dHiXNvFi
MdWEuU76c7XsLHQq46x2pJY4eQ573N+5I7SFaDqPkP5pat30ZaLfgE1+JZ10
xYamH5KdInURdj+IGkrmXENbTuiUyFaMnrRTG54arsPX2RM+86gEA2t4f/i2
BiL/AqL6u8Z7n9iJqjLEmBeL3MJGIlOOk9LgG/VnHMS5CvDjMzq9zpvEWCMM
yQcN+oUmorEKKc31my1bbxP7LsIbbnKtsjYTQ00oL9ziUr9sIeZeAiuIcHDC
WjF6NTi9VlWDcl+fXJLXhiT9Caf9aw287xvG7zPt0BYNzx531CJlTMIJ8jnh
+sRfwU2oQz/tLpxxMERfHWxC02ujlCWWmZEwxrQrJ1ii2IL5RWfcN4uLOGyB
Pt19N0fcQdRZQS3X2kGcsuIvCTIOCA==
         "]]},
       Annotation[#, "Charting`Private`Tag$2727804#1"]& ], 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwVjn041AcAxy9UVJRKobpwWxGmyNbUdV+xEx2e2Kx6Kt0RMe/O63H9OCmP
yvu77sV7Xu5XOg2TUldGG7JenLetrJ603fJadLG1Pz7P58/Px5gT6nFajUKh
uH7if/819ZHF9NNjVAipuhSCjYjKOBtHyTTD+GW5tlLARuxKpZ+BRB1Cc7MV
g+fZ4LVXUTQk61DYbKMuy2BjoUDgOi+m4VL/wVl/ERvtGlPT02IbRC+LVPS2
s0Hda+Y0KXaAU0inRLTAhttT+cRbsSfe0MOsGTwOkCVY+Q3XF60d25LE6T7Q
nfa6luUTgtfXNedm0nyx/6fYw4lruFCk8x1YgtMQR7Y3DB+Jg6fL0bb7WX4Y
dR7pVzH5sIjyPmF92R+nD8UrOb1JyEjpNu8QnYF963uN3pAUyBK7ejzqA7Cy
+Tll0/NU7BmbLnpWFQjzSaeQfRfS4GgpyObf/AF2LYZ36GoXcX2MfkNfFgTS
2fvzB6GX8YfgYk1TfTBurVizqJuWiQJNPOS2hsCwuWro2r0sSOepG7bfDIWJ
QBXeqp+Dav9dnYk+YThprZV93j8XR52uBAeMh0HXzLVCLsqD3Qi1xs0vHKF0
99CgqXyceukxL1eGw7HovEXKF4VoKi8d3R0UAflaftmyc0Vwe1w4aDsbgZgw
yzLWk2J0zY+imRcJid66XLXVpeA+sdu7ez4SMQM399N8rsCH5syyT+JC/iJz
6IZYiOTtwZNOlCg4PqKpaQ6IkGw0ROlLiEJzSGvYWK4YD9JV28bVo5Gmz1fE
W0tg17DruSopGjsfiYVOIxLMwLBRtCIGEyqR6buUMlzqYinlmTEIcmmtO25c
Di/NvLYx7VjcqrZJn+suh29LRllOXiy6TX/2YQVUoMxIvJm+Pg6Tm75ekqxR
iY6ED5QzmXFQbtFS/V1fic8OLf9I2xiPSocZ5WqXKjT3mqUrcuNhHbuffmam
CpcfLO402sIDr6/8XGxONfIjxwNPlfIwUvwyO9CqBnw96moTgwTocVM/Zg3U
oM5saTdXnACt8APe4dFXsXxmiUEHNRH9CSeoqca1qNl5nS+sTkTTh2/LErpq
Yc6pdVuw5MOz1H+ruV8dhp1bGr+r46OTpZjTWVOP38rjLRk2Z/HOyO9hrbQe
czcO7zNpPAuGfy/H1KUBxPGWYw4bCZxsK/AammrANv1yk/ZjBPbY8hyYmVL8
KS2QNRUReMo7sGNpjhRpu2QjPcUEou5q6crzpLCS9S17XUKg0b1w1L5EivgW
raOGQgIWgU1x9Cop1sp5C/wyAkait+TuNimg8GYerCOgpeW7mfZaCqG66cBg
G4Ead3P1F2+kcEx1XDJziwAzf2pcrJRiXJO9Q/s2gRRa0o/UaSlsdYoTGB0E
FulCD8NFKX7RX2VccZ/AVMTABd31JD5YTgQE9xDIbBGF9m0gIb62Kie1l4AV
xd8rw4AE08asTdRHIOjSLE17K4nsPRyd/n4Cr6rX3tbcQcLM4XHjl88+9f5R
VHZakOi5PzHkPkCAZiu5mGpFgntQe2mAgsCpu1bHNGxJ3HFlfl8y9OlH8z3u
fUXCr49DyIYJXHFv355sR2KV59mrv44Q2Jd/TseeTqLxSUn/q1ECg8Os2X8Z
JI4caVb9+zuB/wByO0Q0
         "]]},
       Annotation[#, "Charting`Private`Tag$2727804#2"]& ], 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwVjnlYjAkAh0cNSofK8SQrMna3i1Dt2qh+KRPtZFRUPFaZppnu6Zg+3Y5q
6HHNdEx3M1PNlDCfJ0W1xDLYXB2bttvSslhDl+iQtX+8z/vn+5qxeN7BGhQK
xfMr//vf0RkGnbPE2Zt5Vouyi41YeaKtm2zMWTjaLpjwYiNBR81ZJtNEa97i
uWofNpKbFRSqbBEY/YVzev3Y+Jyf7jkppYEeWjl1OYCNZuro2JjUFpvTG99y
eWyYbrZwH5G6Ys3VobbWM2zs7FINv5f64IPppkLJIzYgStfZxmdjIDAHbXuC
YTjme0kUFIVxf2rKVGcwnH5N8Eo14EO97YaZwosDaVzzxX7/RFjKrQefd3Mw
uGOgY5qeBnETuW6ZHxfBPyepWa1H4b71Rd5fT7lwafpIbY3KQG8zm2vBCYFO
wzPK8mcClIxMPgwfCoHViHvUlhNZKBe77HAOD4VDo8lNR41T6B4p26v7JhTk
joBv7/LOYNiF3rmPE4brCwxmDbOEYFClwQ7qMJg0KPou3Rbhz5SFJxeFh2N1
+nRMk3EOqrgb7qWOhePARu3s49xc7HUvjQxNjIChhWelSpIHhwHT6p0TEeA5
MnkRo2IEvvCeVKVGwq3wuHXGugLUV5QM2s1EQmWUVj4vsxA7Owt67TOjcCh6
bTnjSRFaJgfRoMODbMmiXI2FJeA/cdhsl8XDoe4rTrSgUtSK1iikWtFQPRf2
XZaW4becK59o26Ph1k7T0OqWwEUYSQkRRKMhqil6KFeKoTupOeMt0cgyTutJ
2ihDaVfB8GetGKxvl5a5D8iQtEqvh+kZg+FpiflERjnushUESxiDCI+m8/vN
KmCV4TE48jgG16tsT366X4Hafvf2FqNY3Df/PYgRWgkvg11nTL1jMbL8pznH
qHIEOqVS7ISxUK/Qnn57QY5sueas6I9YyF3H1Qs9FOj/J/dOhFEcNiY4OYaM
K+AedNhY6BuH5LaKzIScKjxo5NuvF8dhoOhFdphNNW4sODtf1BmHJXzBjKi7
Gl25GsEOxnxox2wNiCHOgTp15FSgHx8dKb+YCsxqsLvA37m1mI/6qd3lKS01
WLphT9XsIB8+JdyVVpzzeFe5v6dmRTzuMXo+6RtcwBuv62LJwXhMrOI8qFFe
wEyPuamhLB7O3FaWucdFHNnfuM/1aTwOXMv37Ru9iO+MK1Y3ryawyT7ZlS5U
4m9lfl39QQJdyVst5+YokbWhbuAxi0D8LW1DVZ4SNnVt814FEahlFgy6FCuR
1Ki914RDwDqsPtFRoYSRKvlzWhiBVZL3pN01JdATQN8eR0Bbm/0N7ZUSZZrm
3b0ZBKqZVprP3yjhJnCbM55JgC4efS1VK/Fa66Cl3nECGbSjV03HlLDXL0px
ziIw61jmbTKrxENjXbPK0wRGY7tPGC4mMbV2ODRSTEDYKOG1LSUhvaSbI8gn
YEPh+p5dRoJua3FNUkAg4vQHmt5KEtmbWPodRQReVhnd0LIkYeHaWfuD5Gvv
XY/8njWJx3eG+5hSAjR72SmBDQn+dr25oTICgbds9lHtSdz0pPsVV3z90fqI
2z+S4LSxjtRVEihlNn9/zIGErs/hc4/kBLaIM/VdHEnUPinueKkg0NvP+PDF
mYS/f8P0lyoC/wGbA0NT
         "]]},
       Annotation[#, "Charting`Private`Tag$2727804#3"]& ], 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwVjns0FHgAhSdkDa2M0qKiyVak0pJ2V425KCSaE23pQQnzMuaXUhFZeUVp
venJDI2Rx0xl85hQy+yqlLCbSHXCpsc2GyMlr9b+cc893/n+uJe+n3gHa1Ao
FK/p/N//qCc8XdlGTHqSQJNCYeOgJNJug3iY+VWAQuPuNEfoqdgmYk28W6ej
kTmDjaiGYoqWeA5qhooo32qyMZkX7/VZZAGWX8+kmzYbDVrq4WGRHWLWeIym
zWLDbJ2V25DIBT19y1TmJmxs6VQOvhf5IIfZ38m0ZQMZ8Xobw4Nwa6mwspbL
Bm14+9WMQCHGU1qD8i6w4XgzYutxg3BYs0ykhx+wITrUUPHUNxI05wj1GU0O
nm961jHuGgPqtXJD3bUcBG8+ptr/8ASqvEbW3RZw4KT4pPVQmIAdnpYfjxRy
oFfTS5nfmwS95tWJGX9xYD3kJlyfnIJw4rVwQJcLh1rT2wyNVAxmMU/lM7iQ
b9q75A/yC/aZLkjeQbio1zWYoqWkI7F1VpqHhAvTmuKeq00ZqJvq4Isfc7E4
fjxMYZyFK3sqWLb6PPjbUjNPcrJxasHB35tceKBZeV1WFuQgxneWQe1hHgiD
RQTqXCxtVAS+LuNhw7mTKxJWnUWf1DE16jkPSsOYQu3Ec/C52VnvbsTH0QMr
Cz0fnUf16p2x8zbzITaak60x+yJWLb72jfvxad9V5WgReAm7nRbWVFbyoexL
76kU5eP8U/+V8QN8bGi30NDpKkBr9yk7H+MQ1AgVB/qzRajSanH22xKCFOOY
7mO2Ylwre7G0JTYEq9tF+W7PxAiI1Z17qDoEg+MFlh8TCjGz2ixzvioEAg9F
2R56Eep4Oi+XmQtQL7U7PXqvCJYe2k7CnwS4Z3kn0JN3GdLi7jDjZAGG5v84
I05LAtPgPLumWgFUC6nj78olcN7Km5K+F0Di8kE126MY0bUG+YP0UNhGODK4
H4ohYN13PeQbiqi2osSILClIgJ9y5+lQPDv/MpNvUwL2o64O1IfCKDxpIqOr
BLSj3LcBw6GghjnvDTtyBW3ZDzoHlgjREe1nlkQvhcsL1/uSPULcGNtWGH23
FKVnSr2DM4Xwucgxt2aXYUl1f0WyUohmz+5RfYNybNP/znBgTIiPi9gtpbJy
5Pb6bJauJGByHu639KjA/XkBRry9BP51edt71BWoiYx7HZRD8IN9lItrugxV
vpHpymaCzijn5TOzZHD4zSpGcofgcCOVpsyR4ZbVk5CkuwTXWWefO12Q4c6Y
g5t7C8EK/o1IRrEMPRcnJltaCRYVvJevqZOB0vtzyJ+PCKjUoAUWr2Xw4CW5
9vUTlLCsNfveytDWvnZN098ErrnqNyKVDNscXtEvvyRIsDhRbTYsg7+e+2Tw
K4IpRr636ZQMByqov755S6A+2JVMmytHzlAqfWiIIL22gLTNk8N0F2N2h5rA
hsLZnmYiR36jauL6MIHgzIjF1+ZylGRt6QofIRiQGt7SWS6Hwt4gbXR0eu/f
bknzCjmY+bejuz8TWNiLU5Ns5FBqh/EVYwT7Gm12adnL8eBx+8boiek/Op/Q
9L0c3oiz85skuMRqWBbnIEdniS3dcYpgfW6ivhNDjt20fn3zLwRPnnqOfGHK
8SIya+LLNP8H6/5ADw==
         "]]},
       Annotation[#, "Charting`Private`Tag$2727804#4"]& ], 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ/frTHx+3NFF7BhBQSHeQs9Z0/7jA2QHG97t25MP7
BcFwvsPEZm7XkhQ4X/Bz2IaJyXlwvt3uisBagRI4f0HxvrV3Iirh/Huedy/9
dquD81O9q94mnW+E8x13fWc5n9cC53PveMgg/bANztf+6J5n09EJ51vtlDpg
y9QD56/3jFc9lt8H5+/lEvgn2DkBzpfasez2hsMT4Xyl5t+FuyQmw/lxRpyT
2tOnIPyn6bvkyPypcH6+rX9+zqdpcL7LzHadFr0ZcP4RobpFbK0z4fzyAt1F
PldnwfkLRYWnMPHPQcjf2GannDwXof/RhNubF8xDmH9RmYnjxnw4f0feroLH
UxbA+Z0SdTerjBbC+QYXF8xzv4vgf/g9X+NbyyI4P8dr1+oYxcWI8Flu3P3j
FIJ/SuNEsk/mEjj/o7QlYxPLUjj/rSzn7zdrEPylzl/e8nstg/ONKuxsM74g
+NUXFrdWTF4O59+d9XRSlv4KOF+0pO3PxBsIPmehU3xh2Uo4/1JNrFyb4io4
f+uvkEU1JxH84Dnp8tppq+H84z43f/AJrIHzvymknV61DsG3Tz+fpOG1FhHf
e6aH3f6E4FuYVju7TViHcA9niozyCwT/1h2fr//t18P5AB3G7kM=
         "]]},
       Annotation[#, "Charting`Private`Tag$2727804#5"]& ]}, {}, {}}, {{}, {
      {RGBColor[0.560181, 0.691569, 0.194885], AbsolutePointSize[6], 
       AbsoluteThickness[1.6], GeometricTransformationBox[
        TagBox[InsetBox["1", {0., 0.}],
         "InsetString"], {{{490., 25.}}, {{490., 25.}}}]}, 
      {RGBColor[0.560181, 0.691569, 0.194885], AbsolutePointSize[6], 
       AbsoluteThickness[1.6], GeometricTransformationBox[
        TagBox[InsetBox["2", {0., 0.}],
         "InsetString"], {{{490., 425.}}, {{490., 425.}}}]}, 
      {RGBColor[0.560181, 0.691569, 0.194885], AbsolutePointSize[6], 
       AbsoluteThickness[1.6], GeometricTransformationBox[
        TagBox[InsetBox["3", {0., 0.}],
         "InsetString"], {{{1340., 437.5}}, {{1340., 437.5}}}]}, 
      {RGBColor[0.560181, 0.691569, 0.194885], AbsolutePointSize[6], 
       AbsoluteThickness[1.6], GeometricTransformationBox[
        TagBox[InsetBox["4", {0., 0.}],
         "InsetString"], {{{2590., 435.}}, {{2590., 435.}}}]}, 
      {RGBColor[0.560181, 0.691569, 0.194885], AbsolutePointSize[6], 
       AbsoluteThickness[1.6], GeometricTransformationBox[
        TagBox[InsetBox["5", {0., 0.}],
         "InsetString"], {{{2890., 345.}}, {{2890., 345.}}}]}, 
      {RGBColor[0.560181, 0.691569, 0.194885], AbsolutePointSize[6], 
       AbsoluteThickness[1.6], GeometricTransformationBox[
        TagBox[InsetBox["6", {0., 0.}],
         "InsetString"], {{{2090., 257.}}, {{2090., 257.}}}]}, 
      {RGBColor[0.560181, 0.691569, 0.194885], AbsolutePointSize[6], 
       AbsoluteThickness[1.6], GeometricTransformationBox[
        TagBox[InsetBox["7", {0., 0.}],
         "InsetString"], {{{1830., 225.}}, {{1830., 
        225.}}}]}, {}}, {}, {}, {}, {}}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVxX041AcAB3B3noWUl8hCRG9q5qVS1hLfE57Ie0fhXFw4rRaOO37nSUJ3
Se2oIfJ63u93j2VqRaxfT6rHS6gmls6Yemq3uhFdXtZs++PzfKw5CcGxdA0N
Db///L8W41Qaz93ILUCSIvKmBVFvjMXRnbJpN0KZNPPzx0Dq3QbpiyIZDTWe
CVFOqkAqkXQozZYZQr147Ot1o4HUtgT1HCGzRkX8EdXs9UBq1eOwLXzZNqgY
PqFV8YEUPUuX4skYMPvDzVdVGUAJw1/mJcmCUNRalOe9148SD7DO18ZzkKdf
3+BpuJ/6guF/qyzsOByCIjyWXPZRwfw2h2E9Hsa3KW3f0/ZSqf0FA/MDAkQF
TOgkdWynvCV2tb+7pSMlcf+TId/1lLtMLOVpZUJDP+TR0uCM21C4Z1D70SxQ
V3XfG49vhuudGLPY4hyknFbO5M44YXRTQ3fZggjaNbpOGR5uCMCBy847cyE9
ldi2yPPArS0ut6/E5EFao96QZuuNUKPAbtG9i6inm083+/iju+X+9PC8BIud
fZbGuUHYvdVBY9ShADafR6jtrJgQj1fvsou8BIZdaqsNGYq7SZ4LjoLLEAfi
mvvyMKzOWXBcrP8efvmHx9rLIsBMHJ8V3CvEXoWFL1OTjWbFsG3bxyIc3lDC
r/OPguaPHwrYm6/g3C7lzfzCaLhHeZy9gRL4DxqWXnjAQZmk9s8nvFIw58aN
nQ1jMHFl52/V+VcxVS9yeO8ZCyudd7RfGstAd5pxKU+Jg3DhRnHfSDlCA7Qm
1R1c3Ln/Q7tgtgKu09Nbov+Kh35uZOOMURXirHO0hHu+QQdHfV4hq4K2o2Ik
68xxHGmycapyrobr/RU+ZS0nILk2YeI1WI2f3kwejFn8Ftc3OlFdbCmoSwWf
XBwScKjPlMZXSlGzUvNRln0ixE7n0rWzavCZaQHX9Uki5DqSjhT9WrRwlwfT
jyeBXWnp3NVYi4xTw+fKDXhYJvVKe+tch8JnEn0GyYPtCC3Iq6sObypIyQv3
ZIz1ex7NZtWDZW/OCnidDNH29S4lynqY0QRpPZkpuB0q9r+U04C50o0Ta234
ONl8eq7DvBFGtbv2cXv4MEk2OEY1NiJ1aseHNo4AB+a2GjUwmvC35tmZSa1U
CJSj2XGDTegNv8swkabC0sD6wiGWDMNW0bnYnYaDatUj21kZ6M1MC3dFGjK8
Q56NnCFBZOyg+QoIJCcM8YJySDA3hYR/TCMQXxii3yMi4dgnaJWmEwieCNl/
O4/Ea9P22PlMAjZEaHt5IYnQG+ipzyMw2HiogtNEYsdbv8u0agLW2uFxbwdJ
vAuL33Szl4CJ/XN67FMS3RrnMzj9BFYwwysVQyTqGsjhlY8JqCvDR/qfk2B9
UOXGPCPQ4xzh0/KSRG8+X2U4QYDHZdkL5kg0PMy6eUJNgHvxRY9qgUTWyVqD
NfMEWK0sLvcTCfbqB8fuLRLwWmJVHabLsfqozlozmhDmxZGr9qyQI+cfSeZD
XSEMOhXNrXpyRNW1/MrTE2LZZOSBLw3lcPF9ut3SUIgpe3aOhYkcsyUmr1JM
hHjFHLMqWiPHAL5ytTIV4rmQ3alnLgf5Oqy411yIgaqxMLGFHKLv0qcElkJ0
PWCrl9bJwdlZ7r3eWoh/AbR4QaE=
        "]]},
      Annotation[#, "Charting`Private`Tag$2727903#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV0Xs0lHkcBvBBZSwlKSmLdKOE0TY7p7J5tGhRuU0u0wxSjN21XQbT72Xb
LNO4ZScqU+3kMkbGvNM9W0kh6qALXZRVlNbuaVUqtRNap333j+95zufP5/k6
xW8LSzBmsVjrmPs/TX12Eclqa292A3csdiHB8+k5my7r3nrbmZetSGH8ap76
cYnOCB6R7Aw54+20x5FsnRUiXvd81DP23GYYoXROqHTMHB9lPO1OtEuazhPe
me2sA84ExlnmjRKdD6Q+saatLgTpgoGCHbpQDDTnTue4EuR0CPM1SfGYGTL/
rphDsNhn/QVV9PegJvLN13AJwtIuejycIkGyCf/W5BUEO28XdYx2SHE+V7XU
y5sgQOGmeeadAU8eZT3Nl2C1LkctMc2EyQ+lyuAAgi6BX2jd5iwkvtivSV1P
sKphy+wEpQwjxfZuPuEEjxZUt6nG5Ohveh2VFkUQjKD9PG4eRmdFsEJFBBdc
vC4d2lKAyrq9nOnxBBHWIW3y5kJUPTOf4C0maDt97e3DUQW6vnAMt0omWL7I
g/XIowgiiwy/oB1Mv6cVX7qJiiF1q25MlhI07fAb40j3o2Gn+Dw3g2CGbIzz
8dgBxAZsD03MJOBvf/pe2nwQbr6Txav2EJzofeh68UMJ+NeHHX/KJzA5809R
zMJDMC/SbqpSMH3jfPfU4jCGZcMOqQcIVArNi7uSI+Cw9uzWHSboP8R9UrHv
VxzV0BtzSwnmmL0yuq9VQVWkblxXyfxjrFZ5s/sohic+a03XEjRcO1knfV8K
Ulm7Nvg4gWWeSPvOuhz81jspBWcI6uMN+b26clzlXpl38jxBbI3zsnJeBeJu
rgpOrydQnOq38e+sAH/Q1OF4E8G5+csaW2LUIJ4JSTnXCSJvzjJKG1TDral4
ZcANZp9luRnsrEqs6GafkXQS6M0U9amWGqTZWmu+7iKIKXPgtWg1YD9NWP5j
D8EktT95yatCe+faQOETAtduo1D/lirYfzZhYN4AQd9tv83ZwmNobTdxCv+b
QL50rtfhwWNQn1P+vmiI4FJEzvpiWTXuL0jlJr0j2Hpi90i9nRbKJ3Nm/zJC
YJMy9dtGrRZ5VzelbxwnCBpZZF3tU4O7S17s2mdMQTr4KDuxswaBjezxZFMK
DlOd9kYKdeCrDBM8LSiEG4Zuub7X4bdPS04JrSj8FLDhQffPNPz3fnjgYUMh
ZVuXJFRGw0y+ON6PcdLBDZbtcho3doteCRiH9W/45lIBjZCUZhM5Y2cqou7o
QRoCgYLzmHGnNrI0vobGVhfn/NyZFJzYgsSXnTSULRFf9dtSsHHvMU64RyP6
Sl6rgbEFX1DW20Xj8wv14RazKBjKBN23e2hU0HO/4zFu520MPD1Agy4eKilk
LBEL3aUjNBri5G+Wz6YgLnzcPjRGI0twMSOYsfCsUCwep+HLfzkpgbH/J2F5
lLEebWvC7PcxtlOKpq200OOeu0PgX4ynXu49cXaKHiUuoV0fGU/6QxS0xEqP
qLmyOCs7Cm/cY2T2Nnr0zRiUejH+k983p8RWj3JLe+Mwxj3pMZen2Omx2Syk
UMy4o7wvOsdejwUm2ba7GLdcjzF8ctTj+b+1lcWM/wOi+CsM
        "]]},
      Annotation[#, "Charting`Private`Tag$2727903#2"]& ]}, {}, {}}, 
   {RGBColor[0.880722, 0.611041, 0.142051], PointSize[Large], 
    PointBox[{3475, 401.192721063381}], InsetBox[
     RowBox[{"{", 
      RowBox[{"3475", ",", "401.192721063381`"}], 
      "}"}], {3515, 441.192721063381}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Epilog->{
    RGBColor[0.560181, 0.691569, 0.194885], 
    PointSize[Large], 
    PointBox[
     NCache[{{450, -15}, {450, 385}, {1300, 
        Rational[795, 2]}, {2550, 395}, {2850, 305}, {2050, 217}, {1790, 
       185}}, {{450, -15}, {450, 385}, {1300, 397.5}, {2550, 395}, {2850, 
       305}, {2050, 217}, {1790, 185}}]]},
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox["\"pixel\"", TraditionalForm], None}, {
     FormBox["\"n\"", TraditionalForm], None}},
  FrameTicks->FrontEndValueCache[{{Automatic, 
      Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
      Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {200., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {400., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {600., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-200., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-150., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-100., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-50., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {50., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {100., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {150., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {250., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {300., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {350., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {450., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {500., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {550., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {650., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {700., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {750., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {800., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}, {Automatic, {{0., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {1000., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {2000., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {3000., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {4000., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-1000., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-800., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-600., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-400., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-200., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {200., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {400., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {600., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {800., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1200., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1400., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1600., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1800., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2200., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2400., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2600., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2800., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3200., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3400., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3600., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3800., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4200., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4400., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4600., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4800., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {5000., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}}],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 3999.999918367347}, {-150, 700}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.726417877496353*^9, 3.726417970114233*^9, 3.7264180323629775`*^9, 
   3.726418187893673*^9, {3.7264182182383957`*^9, 
   3.7264182475376024`*^9}},ExpressionUUID->"c7c30bdc-5266-4909-b326-\
93e03542a4a6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"1", "/", 
  FractionBox[
   RowBox[{"401.2", "-", "185"}], 
   RowBox[{"3475", "-", "450"}]]}]], "Input",
 CellChangeTimes->{{3.7264183537267375`*^9, 
  3.72641839597773*^9}},ExpressionUUID->"66d99ec7-25f3-4050-8463-\
7d445cfba48d"],

Cell[BoxData["13.991674375578167`"], "Output",
 CellChangeTimes->{{3.7264183883288174`*^9, 
  3.7264183965022144`*^9}},ExpressionUUID->"68736f91-3cd2-4392-a068-\
23e8a2b1b341"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
\:6240\:4ee5\:5c06 mod \:6570\:8bbe\:6210 14 \:5373\:53ef\:8fbe\:5230\:9ea6\
\:9171\:7684\:6027\:80fd\:6781\:9650\:ff08\:9884\:8ba1\:4e0a\:9650\:6210\:7ee9\
\:4e3a n=3475\:ff09\
\>", "Subsection",
 CellChangeTimes->{{3.7264126952539396`*^9, 3.7264127170762095`*^9}, {
  3.7264184195627346`*^9, 3.726418456593339*^9}, {3.7264184900887246`*^9, 
  3.7264184924564753`*^9}, {3.726418718108276*^9, 
  3.726418752688485*^9}},ExpressionUUID->"f4bb5a9c-9ae0-4c7f-8073-\
bc4fd0ce872e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"n", "=", "1"}], ";", 
   RowBox[{"y", "=", "570"}], ";", 
   RowBox[{"y0", "=", 
    RowBox[{"y", "+", "185"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{
  "(*", " ", 
   "\:5f00\:5c40\:5148\:628a\:9635\:7ebf\:5c3d\:91cf\:5f80\:524d\:63a8", " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"While", "[", 
   RowBox[{
    RowBox[{"n", "<", "460"}], ",", 
    RowBox[{
     RowBox[{"checklineC", "[", "]"}], ";", 
     RowBox[{"y0", "--"}], ";", 
     RowBox[{"y", "--"}], ";", 
     RowBox[{"n", "++"}]}]}], "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", "\:4e2d\:76d8", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"While", "[", 
  RowBox[{
   RowBox[{"n", "<", "4000"}], ",", 
   RowBox[{
    RowBox[{"checklineC", "[", "]"}], ";", 
    RowBox[{"n", "++"}], ";", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{
      "\:968f\:7740\:6e38\:620f", " ", "bps", " ", 
       "\:7ebf\:6027\:52a0\:5feb"}], "\:ff0c", 
      "\:89e6\:70b9\:5e94\:5300\:901f\:540e\:64a4"}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Mod", "[", 
        RowBox[{"n", ",", "14"}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{"y0", "++"}]}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.725976569520769*^9, 3.725976643072662*^9}, 
   3.7259767703475876`*^9, {3.7259772497185364`*^9, 3.7259772546219287`*^9}, {
   3.7260014809737854`*^9, 3.7260014885277104`*^9}, 3.7260015525061197`*^9, {
   3.7260016698285723`*^9, 3.726001676761552*^9}, 3.726001876111522*^9, 
   3.7260025674545493`*^9, 3.726002817723105*^9, 3.726003145496038*^9, {
   3.7260043445649633`*^9, 3.726004369977785*^9}, {3.726004401784481*^9, 
   3.7260044082599106`*^9}, {3.726004736011421*^9, 3.726004827557646*^9}, {
   3.726004858027726*^9, 3.726004895397007*^9}, {3.7260049732635036`*^9, 
   3.726004988007931*^9}, {3.726005088016179*^9, 3.726005103778763*^9}, {
   3.7260053229793863`*^9, 3.7260053809645057`*^9}, {3.7260054327438545`*^9, 
   3.726005466922026*^9}, {3.726005574807111*^9, 3.726005584277416*^9}, {
   3.726005704550661*^9, 3.726005725325203*^9}, {3.726005791016857*^9, 
   3.726005801330636*^9}, {3.7260326840180483`*^9, 3.726032786337493*^9}, {
   3.7260332543146343`*^9, 3.726033257097459*^9}, 3.726033332602045*^9, {
   3.7260334030353303`*^9, 3.7260334138643265`*^9}, 3.726033534873741*^9, 
   3.7260336958310933`*^9, {3.726033795331489*^9, 3.726033797929084*^9}, {
   3.7260338630061426`*^9, 3.726033881516777*^9}, {3.726033920125008*^9, 
   3.7260339202930202`*^9}, 3.726034140529395*^9, {3.7260345666602187`*^9, 
   3.726034579397365*^9}, {3.726034674619891*^9, 3.7260346893144913`*^9}, {
   3.726034838947912*^9, 3.7260348418012514`*^9}, {3.7260374060241904`*^9, 
   3.7260374071105976`*^9}, {3.726039598984212*^9, 3.7260396021395006`*^9}, {
   3.726039681499805*^9, 3.7260397091444516`*^9}, {3.7260397455358133`*^9, 
   3.7260397807095203`*^9}, {3.726040044739202*^9, 3.7260400562967587`*^9}, {
   3.7260409674433527`*^9, 3.7260409676794767`*^9}, {3.7260428639976225`*^9, 
   3.7260428656651993`*^9}, 3.7260434695393443`*^9, 3.7260437455871773`*^9, {
   3.7260509090479937`*^9, 3.726050912162624*^9}, {3.7260509462091637`*^9, 
   3.7260509622759867`*^9}, 3.7260509983253984`*^9, 3.726051688352867*^9, {
   3.7260518858015213`*^9, 3.7260518862332797`*^9}, 3.72605201147064*^9, 
   3.7260522534106627`*^9, {3.726052425671691*^9, 3.7260524612896786`*^9}, {
   3.726052764363434*^9, 3.726052764682762*^9}, {3.726053194821686*^9, 
   3.7260532234585996`*^9}, {3.726054867281863*^9, 3.726054930796424*^9}, 
   3.7260550803455515`*^9, {3.7260551310000763`*^9, 3.726055146934782*^9}, {
   3.726055311360138*^9, 3.726055312963813*^9}, 3.726055919232994*^9, {
   3.7260568642050867`*^9, 3.726056948626891*^9}, {3.726056990497716*^9, 
   3.726057030086046*^9}, {3.726057467986033*^9, 3.726057499126376*^9}, {
   3.726069884994578*^9, 3.7260698851671557`*^9}, {3.726070214011381*^9, 
   3.726070247391887*^9}, 3.726070423941222*^9, 3.7260709914226437`*^9, 
   3.726071407421703*^9, {3.726072257714093*^9, 3.726072284312599*^9}, {
   3.726072317054859*^9, 3.7260723217704535`*^9}, {3.7260725391868*^9, 
   3.7260725403591857`*^9}, {3.726072726437519*^9, 3.726072727638488*^9}, {
   3.7260727582026253`*^9, 3.726072776026434*^9}, {3.726072985545932*^9, 
   3.7260730223752303`*^9}, {3.7260732238480277`*^9, 3.7260732349684587`*^9}, 
   3.726073279819859*^9, 3.7260733392381954`*^9, 3.7260734891537695`*^9, 
   3.7260736920771265`*^9, 3.726073774692771*^9, {3.726073944493408*^9, 
   3.726073960073595*^9}, 3.7264068165486465`*^9, 3.7264113731489697`*^9, {
   3.7264116714447927`*^9, 3.7264117260323496`*^9}, 3.7264119963293076`*^9, {
   3.7264121232562027`*^9, 3.7264121237056975`*^9}, 3.7264122930603056`*^9, {
   3.7264149069635086`*^9, 3.7264149545445156`*^9}, 3.726415092709063*^9, {
   3.7264151423718863`*^9, 3.726415142704968*^9}, 3.726415266880658*^9, 
   3.726415458397088*^9, 3.726415667204028*^9, {3.7264158430854187`*^9, 
   3.726415846946557*^9}, {3.7264184660198154`*^9, 3.7264184833305883`*^9}, 
   3.726418862753937*^9},ExpressionUUID->"8e3e025a-4f21-44f9-a482-\
07bfd93082a8"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{
  3.7264200584175797`*^9},ExpressionUUID->"e19bbce5-35b1-4578-ba08-\
55dfa96909e0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dynamic", "[", 
  RowBox[{"{", 
   RowBox[{"n", ",", "y", ",", "y0"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.72604495116928*^9, 
  3.7260449563648887`*^9}},ExpressionUUID->"47bfb56b-24e0-43ff-983d-\
e4df1373952c"],

Cell[BoxData[
 DynamicBox[
  ToBoxes[{$CellContext`n, $CellContext`y, $CellContext`y0}, StandardForm],
  ImageSizeCache->{246., {5., 19.}}]], "Output",
 CellChangeTimes->{3.726005692812557*^9, 
  3.726044956826525*^9},ExpressionUUID->"ef1cf866-02bb-4f43-b8d5-\
a526dd1dc60b"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1920, 961},
WindowMargins->{{-5, Automatic}, {Automatic, -5}},
AutoIndent->False,
Magnification:>0.75 Inherited,
FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (2017\:5e7410\:67082\
\:65e5)",
StyleDefinitions->"NotoSansMMA.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 231, 4, 125, "Subsection",ExpressionUUID->"01e98eb2-bd7b-406e-a765-08ea74e3a6e6"],
Cell[814, 28, 1594, 30, 236, "Input",ExpressionUUID->"4c6538af-6ede-40dc-a2e2-a38eda70cb39"],
Cell[2411, 60, 255, 5, 81, "Text",ExpressionUUID->"f35bbc7e-c758-431a-8a69-d1d0eb9b2bd7"],
Cell[CellGroupData[{
Cell[2691, 69, 278, 6, 63, "Input",ExpressionUUID->"02f6ae48-77d8-41a8-ad12-be743ffc0207"],
Cell[2972, 77, 220, 6, 72, "Output",ExpressionUUID->"0333f113-1f7e-43fc-a4af-026bb8e585e7"]
}, Open  ]],
Cell[3207, 86, 1028, 22, 107, "Input",ExpressionUUID->"a86157f7-5fee-42ef-aec5-e0038898d50b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4272, 113, 176, 3, 125, "Subsection",ExpressionUUID->"3568f8df-0eb1-4d6f-9489-74c164bf329a"],
Cell[4451, 118, 533, 13, 63, "Input",ExpressionUUID->"bc8df399-0bac-41d9-943f-2fd31360e02b"],
Cell[4987, 133, 6926, 148, 408, "Input",ExpressionUUID->"5db95623-02ed-4598-9a19-895b97faa0dd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11950, 286, 212, 4, 125, "Subsection",ExpressionUUID->"804d5fa6-642a-4f37-94d8-c6a980f1688b"],
Cell[12165, 292, 1061, 23, 150, "Input",ExpressionUUID->"da3647f4-155f-471e-a4d4-9aa896cd6611"],
Cell[CellGroupData[{
Cell[13251, 319, 414, 11, 63, "Input",ExpressionUUID->"5746ffdb-38b8-4a16-8914-4baff80b2329"],
Cell[13668, 332, 259, 6, 72, "Output",ExpressionUUID->"2513629b-90cf-463c-8cbd-baa89d5f3c0b"]
}, Open  ]],
Cell[13942, 341, 263, 4, 81, "Text",ExpressionUUID->"bc36c292-ad38-49e3-85e6-2cdf62c7851b"],
Cell[CellGroupData[{
Cell[14230, 349, 183, 4, 63, "Input",ExpressionUUID->"8e0b8671-9329-4dd5-8c39-debba6fcc8b1"],
Cell[14416, 355, 151, 3, 72, "Output",ExpressionUUID->"41a31dd3-18cc-4087-adcd-6ee7c74861c0"]
}, Open  ]],
Cell[14582, 361, 284, 4, 81, "Text",ExpressionUUID->"e3bb8212-91c2-4220-a73f-6c7bbbf7fe96"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14903, 370, 242, 4, 125, "Subsection",ExpressionUUID->"f58cd4bd-12eb-4a36-a4ed-83e039cf94f9"],
Cell[15148, 376, 273, 5, 81, "Text",ExpressionUUID->"49001061-8113-40a8-b7e7-2357d75a61af"],
Cell[15424, 383, 2099, 48, 193, "Input",ExpressionUUID->"bbe976de-e661-4d19-81ba-348d6bd6784f"],
Cell[CellGroupData[{
Cell[17548, 435, 245, 6, 63, "Input",ExpressionUUID->"4bc1b38a-68fb-4e76-a0ee-7d7029c2b68f"],
Cell[17796, 443, 275, 6, 72, "Output",ExpressionUUID->"db6ecfbf-f3e7-474f-ba8d-5540b3a04711"]
}, Open  ]],
Cell[18086, 452, 2122, 42, 193, "Input",ExpressionUUID->"7dd2924e-0ada-49a5-842f-64e676e9d8f5"],
Cell[20211, 496, 327, 6, 81, "Text",ExpressionUUID->"8d6e1bd6-386f-4003-98cc-e39ba90a1ab6"],
Cell[CellGroupData[{
Cell[20563, 506, 224, 6, 63, "Input",ExpressionUUID->"85fb6a48-6f46-485f-a986-bc23d582c5c9"],
Cell[20790, 514, 134, 3, 72, "Output",ExpressionUUID->"fea14bea-ac96-447c-a448-0f60eb312612"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20973, 523, 226, 4, 125, "Subsection",ExpressionUUID->"3b1a02d3-6aec-4ab7-b3a4-12572f78e2f5"],
Cell[21202, 529, 5207, 92, 335, "Input",ExpressionUUID->"dfa25280-fc13-4b19-9d4e-ace9216ee0ec"],
Cell[CellGroupData[{
Cell[26434, 625, 245, 6, 63, "Input",ExpressionUUID->"7f89985c-b2b6-492c-896f-73b9c28ff79f"],
Cell[26682, 633, 275, 6, 72, "Output",ExpressionUUID->"8ca2d558-0828-4009-9a6e-81078a77c93e"]
}, Open  ]],
Cell[26972, 642, 757, 13, 296, "Text",ExpressionUUID->"138e27ef-6b59-4b0f-951d-c3ca0f20c9c6"],
Cell[27732, 657, 473, 10, 63, "Input",ExpressionUUID->"111390af-1ce4-4852-8b78-a16ccefcdb2d"],
Cell[28208, 669, 364, 11, 63, "Input",ExpressionUUID->"9dfb7389-27f2-4ded-97b8-9bd39442523a"],
Cell[CellGroupData[{
Cell[28597, 684, 1104, 34, 107, "Input",ExpressionUUID->"7cd7e649-8f5c-486e-a576-46df5ffcd249"],
Cell[29704, 720, 693, 21, 96, "Output",ExpressionUUID->"68b6e0ea-84fe-4075-9184-12dbabe577e1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30434, 746, 7534, 190, 322, "Input",ExpressionUUID->"dd22a7a7-e7a5-4b38-ad9d-4a55cf401a54"],
Cell[37971, 938, 18556, 372, 558, "Output",ExpressionUUID->"245644ff-6804-4941-bb69-c76a319d0ccc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56564, 1315, 547, 13, 63, "Input",ExpressionUUID->"5e87cb4d-e218-4861-93f2-f2bcb5595df4"],
Cell[57114, 1330, 303, 7, 72, "Output",ExpressionUUID->"98802a18-411b-40ec-87e0-419113030737"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57454, 1342, 534, 12, 63, "Input",ExpressionUUID->"25b63779-f830-4922-8bdc-1f7e41b82d1d"],
Cell[57991, 1356, 235, 5, 72, "Output",ExpressionUUID->"aa54ec1b-ba89-4ee5-82f5-8a72f766c6a8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58263, 1366, 250, 6, 63, "Input",ExpressionUUID->"b990774b-c10c-418f-8d22-323a17c685e1"],
Cell[58516, 1374, 224, 6, 72, "Output",ExpressionUUID->"e70f6b6a-cab3-420b-a26b-e47f47a3b943"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58777, 1385, 287, 8, 63, "Input",ExpressionUUID->"dbd91e41-bb15-4d02-9139-0bcea6069aaf"],
Cell[59067, 1395, 196, 5, 72, "Output",ExpressionUUID->"6030650a-5650-4cd4-b523-b77a118750e0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59300, 1405, 4388, 114, 107, "Input",ExpressionUUID->"5c190a1d-a490-4b66-a491-c2fbf090087b"],
Cell[63691, 1521, 22048, 436, 558, "Output",ExpressionUUID->"c7c30bdc-5266-4909-b326-93e03542a4a6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[85776, 1962, 256, 7, 101, "Input",ExpressionUUID->"66d99ec7-25f3-4050-8463-7d445cfba48d"],
Cell[86035, 1971, 176, 3, 72, "Output",ExpressionUUID->"68736f91-3cd2-4392-a068-23e8a2b1b341"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[86260, 1980, 486, 9, 190, "Subsection",ExpressionUUID->"f4bb5a9c-9ae0-4c7f-8073-bc4fd0ce872e"],
Cell[CellGroupData[{
Cell[86771, 1993, 5224, 92, 335, "Input",ExpressionUUID->"8e3e025a-4f21-44f9-a482-07bfd93082a8"],
Cell[91998, 2087, 139, 3, 72, "Output",ExpressionUUID->"e19bbce5-35b1-4578-ba08-55dfa96909e0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[92174, 2095, 245, 6, 63, "Input",ExpressionUUID->"47bfb56b-24e0-43ff-983d-e4df1373952c"],
Cell[92422, 2103, 275, 6, 72, "Output",ExpressionUUID->"ef1cf866-02bb-4f43-b8d5-a526dd1dc60b"]
}, Open  ]]
}, Open  ]]
}
]
*)

